diff options
| author | simonpj@microsoft.com <unknown> | 2010-03-09 17:28:42 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2010-03-09 17:28:42 +0000 |
| commit | 6e335238185e90ca9107790fb4236a9367ea8865 (patch) | |
| tree | 54a2220fe03e388b415d5cf0d1922b8b836841c5 /compiler | |
| parent | 4ce88e3255928e704bbeb19bbb5878da280a6993 (diff) | |
| download | haskell-6e335238185e90ca9107790fb4236a9367ea8865.tar.gz | |
A bug in isClosedUnfolding
isClosedUnfolding should say False for DFUnUnfolding!
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/coreSyn/CoreSyn.lhs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/coreSyn/CoreSyn.lhs b/compiler/coreSyn/CoreSyn.lhs index 83692a80a1..b6b6659076 100644 --- a/compiler/coreSyn/CoreSyn.lhs +++ b/compiler/coreSyn/CoreSyn.lhs @@ -622,6 +622,7 @@ unfoldingArity _ = panic "unfoldingArity" isClosedUnfolding :: Unfolding -> Bool -- No free variables isClosedUnfolding (CoreUnfolding {}) = False +isClosedUnfolding (DFunUnfolding {}) = False isClosedUnfolding _ = True -- | Only returns False if there is no unfolding information available at all |