diff options
| author | Gabor Greif <ggreif@gmail.com> | 2018-05-28 14:14:59 +0200 |
|---|---|---|
| committer | Tobias Dammers <tdammers@gmail.com> | 2018-05-30 12:45:50 +0200 |
| commit | 54407b768543ad9202f9594ba718723c43d280c2 (patch) | |
| tree | 98b21346b5c8016d6d168284d4de1d1a534c0ccd | |
| parent | 2529be09068c6d6c8a8e697b5cc219403da7e2a1 (diff) | |
| download | haskell-54407b768543ad9202f9594ba718723c43d280c2.tar.gz | |
remove dead maybeIsLFCon
| -rw-r--r-- | compiler/codeGen/StgCmmClosure.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/compiler/codeGen/StgCmmClosure.hs b/compiler/codeGen/StgCmmClosure.hs index b021fe070d..6f0feaa557 100644 --- a/compiler/codeGen/StgCmmClosure.hs +++ b/compiler/codeGen/StgCmmClosure.hs @@ -27,7 +27,7 @@ module StgCmmClosure ( mkApLFInfo, mkLFImported, mkLFArgument, mkLFLetNoEscape, mkLFStringLit, lfDynTag, - maybeIsLFCon, isLFThunk, isLFReEntrant, lfUpdatable, + isLFThunk, isLFReEntrant, lfUpdatable, -- * Used by other modules CgLoc(..), SelfLoopInfo, CallMethod(..), @@ -387,11 +387,6 @@ lfDynTag _ _other = 0 -- Observing LambdaFormInfo ----------------------------------------------------------------------------- -------------- -maybeIsLFCon :: LambdaFormInfo -> Maybe DataCon -maybeIsLFCon (LFCon con) = Just con -maybeIsLFCon _ = Nothing - ------------ isLFThunk :: LambdaFormInfo -> Bool isLFThunk (LFThunk {}) = True |