diff options
Diffstat (limited to 'ghc/compiler/javaGen/JavaGen.lhs')
| -rw-r--r-- | ghc/compiler/javaGen/JavaGen.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/javaGen/JavaGen.lhs b/ghc/compiler/javaGen/JavaGen.lhs index e46a1c64e7..ae6d19a4ca 100644 --- a/ghc/compiler/javaGen/JavaGen.lhs +++ b/ghc/compiler/javaGen/JavaGen.lhs @@ -66,7 +66,7 @@ import Outputable import Maybe import PrimOp -import Util ( lengthIs ) +import Util ( lengthIs, notNull ) #include "HsVersions.h" @@ -267,7 +267,7 @@ javaCase :: (Expr -> Statement) -> CoreExpr -> Id -> [CoreAlt] -> [Statement] -- If we've got the wrong one, this is _|_, and the -- casting will catch this with an exception. -javaCase r e x [(DataAlt d,bs,rhs)] | not (null bs) +javaCase r e x [(DataAlt d,bs,rhs)] | notNull bs = java_expr PushExpr e ++ [ var [Final] (javaName x) (whnf primRep (vmPOP (primRepToType primRep))) ] ++ |