diff options
| author | sof <unknown> | 2002-04-05 23:24:31 +0000 |
|---|---|---|
| committer | sof <unknown> | 2002-04-05 23:24:31 +0000 |
| commit | d254a44b8392ff0a4327f1916ef921887ce78769 (patch) | |
| tree | e02757096d7fa0196815d26287ac768513d0c67c /ghc/compiler/javaGen/JavaGen.lhs | |
| parent | ef3da13ba529e1f0202709bec93a2b5ba7f3e1b8 (diff) | |
| download | haskell-d254a44b8392ff0a4327f1916ef921887ce78769.tar.gz | |
[project @ 2002-04-05 23:24:25 by sof]
Friday afternoon pet peeve removal: define (Util.notNull :: [a] -> Bool) and use it
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))) ] ++ |