Skip to content
Snippets Groups Projects
Commit 60b35db9 authored by pcapriotti's avatar pcapriotti
Browse files

wibbles to #5252.

parent 306ab550
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
compiler/typecheck/TcTyClsDecls.lhs
+ 2
− 2
View file @ 60b35db9
......@@ -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
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment