[commit: ghc] ghc-7.6: wibbles to #5252. (60b35db)

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 <[email protected]>
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