diff options
| author | Sebastian Graf <sebastian.graf@kit.edu> | 2020-03-19 17:30:00 +0100 |
|---|---|---|
| committer | Sebastian Graf <sebastian.graf@kit.edu> | 2020-03-19 17:30:00 +0100 |
| commit | 8d4b9e8b3bb2e142b9e135740927e2572dd1eb47 (patch) | |
| tree | 757f88e1afde9d37fc25c9a0e0ae122cf68a1360 | |
| parent | 0cd21aef3a23de4ec0ae21e7fc8f9904758c7554 (diff) | |
| download | haskell-8d4b9e8b3bb2e142b9e135740927e2572dd1eb47.tar.gz | |
typo
| -rw-r--r-- | compiler/basicTypes/Demand.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/basicTypes/Demand.hs b/compiler/basicTypes/Demand.hs index 3cd1ea2914..e3e01570e1 100644 --- a/compiler/basicTypes/Demand.hs +++ b/compiler/basicTypes/Demand.hs @@ -1319,7 +1319,7 @@ deferAfterPreciseException d = lubDmdType d (emptyDmdType conDiv) mayThrowPreciseException :: DmdType -> Bool mayThrowPreciseException (DmdType _ _ Dunno) = True -mayThrowPreciseException (DmdType _ _ ConOrDiv) = True +mayThrowPreciseException (DmdType _ _ ExnOrDiv) = True mayThrowPreciseException (DmdType _ _ _) = False strictenDmd :: Demand -> CleanDemand |