diff options
Diffstat (limited to 'compiler/prelude/PrelRules.hs')
| -rw-r--r-- | compiler/prelude/PrelRules.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/prelude/PrelRules.hs b/compiler/prelude/PrelRules.hs index a6d7bcc425..3a0b1f7b9f 100644 --- a/compiler/prelude/PrelRules.hs +++ b/compiler/prelude/PrelRules.hs @@ -1039,7 +1039,7 @@ dataToTagRule = a `mplus` b dflags <- getDynFlags [_, val_arg] <- getArgs in_scope <- getInScopeEnv - (floats, dc,_,_) <- liftMaybe $ exprIsConApp_maybe in_scope val_arg + (_,floats, dc,_,_) <- liftMaybe $ exprIsConApp_maybe in_scope val_arg ASSERT( not (isNewTyCon (dataConTyCon dc)) ) return () return $ wrapFloats floats (mkIntVal dflags (toInteger (dataConTagZ dc))) |