minor: use unless instead of (when . not)
authorÖmer Sinan Ağacan <omeragacan@gmail.com>
Sat, 7 Nov 2015 23:20:26 +0000 (00:20 +0100)
committerBen Gamari <ben@smart-cactus.org>
Sat, 7 Nov 2015 23:54:05 +0000 (00:54 +0100)
Reviewers: bgamari, austin

Reviewed By: austin

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D1438

compiler/codeGen/StgCmmExpr.hs

index 29db20a..de23443 100644 (file)
@@ -47,7 +47,7 @@ import Util
 import FastString
 import Outputable
 
-import Control.Monad (when,void)
+import Control.Monad (unless,void)
 import Control.Arrow (first)
 
 #if __GLASGOW_HASKELL__ >= 709
@@ -295,7 +295,7 @@ cgCase (StgOpApp (StgPrimOp op) args _) bndr (AlgAlt tycon) alts
 
        -- If the binder is not dead, convert the tag to a constructor
        -- and assign it.
-       ; when (not (isDeadBinder bndr)) $ do
+       ; unless (isDeadBinder bndr) $ do
             { dflags <- getDynFlags
             ; tmp_reg <- bindArgToReg (NonVoid bndr)
             ; emitAssign (CmmLocal tmp_reg)
@@ -401,7 +401,7 @@ cgCase (StgApp v []) bndr alt_type@(PrimAlt _) alts
   || reps_compatible
   = -- assignment suffices for unlifted types
     do { dflags <- getDynFlags
-       ; when (not reps_compatible) $
+       ; unless reps_compatible $
            panic "cgCase: reps do not match, perhaps a dodgy unsafeCoerce?"
        ; v_info <- getCgIdInfo v
        ; emitAssign (CmmLocal (idToReg dflags (NonVoid bndr)))