diff options
author | Gabor Greif <ggreif@gmail.com> | 2018-05-28 14:14:59 +0200 |
---|---|---|
committer | Gabor Greif <ggreif@gmail.com> | 2018-05-29 12:18:56 +0200 |
commit | 6848a992ad38a4b21d1063c8acbbc398b06ab921 (patch) | |
tree | 98b21346b5c8016d6d168284d4de1d1a534c0ccd /compiler/codeGen | |
parent | 25f01db0fa7b20a22136ef770da6361bc3b7a82b (diff) | |
download | haskell-6848a992ad38a4b21d1063c8acbbc398b06ab921.tar.gz |
remove dead maybeIsLFCon
Diffstat (limited to 'compiler/codeGen')
-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 |