Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : ghc-7.6
http://hackage.haskell.org/trac/ghc/changeset/60b35db9cb6b9a2a90c0a30e28bf6c65d9e21ec3 >--------------------------------------------------------------- commit 60b35db9cb6b9a2a90c0a30e28bf6c65d9e21ec3 Author: Paolo Capriotti <p.caprio...@gmail.com> Date: Tue Nov 6 14:41:12 2012 +0000 wibbles to #5252. >--------------------------------------------------------------- compiler/typecheck/TcTyClsDecls.lhs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/typecheck/TcTyClsDecls.lhs b/compiler/typecheck/TcTyClsDecls.lhs index 2d105d8..50fb85d 100644 --- a/compiler/typecheck/TcTyClsDecls.lhs +++ b/compiler/typecheck/TcTyClsDecls.lhs @@ -1184,8 +1184,8 @@ chooseBoxingStrategy :: DynFlags -> TcType -> HsBang -> HsBang chooseBoxingStrategy dflags arg_ty bang = case choice of HsUnpack | dopt Opt_OmitInterfacePragmas dflags - -> return HsStrict - _other -> return choice + -> HsStrict + _other -> choice where choice :: HsBang choice = case bang of _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
