diff options
| author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2020-03-10 17:58:32 +0100 |
|---|---|---|
| committer | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2020-03-10 18:05:01 +0100 |
| commit | abf5736bcad2d740b5854e2e4a9b3547b9b06639 (patch) | |
| tree | 6ce982e8fb785f48fbefcb766890849272d9b415 /compiler/prelude | |
| parent | 3300eeacbbf7a3d1f961f809be5d236c48827b28 (diff) | |
| download | haskell-abf5736bcad2d740b5854e2e4a9b3547b9b06639.tar.gz | |
Typos in comments [skip ci]
Diffstat (limited to 'compiler/prelude')
| -rw-r--r-- | compiler/prelude/PrelRules.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/prelude/PrelRules.hs b/compiler/prelude/PrelRules.hs index a83dd54a94..643bcae06d 100644 --- a/compiler/prelude/PrelRules.hs +++ b/compiler/prelude/PrelRules.hs @@ -1058,7 +1058,7 @@ and emits a warning. tagToEnumRule :: RuleM CoreExpr -- If data T a = A | B | C --- then tag2Enum# (T ty) 2# --> B ty +-- then tagToEnum# (T ty) 2# --> B ty tagToEnumRule = do [Type ty, Lit (LitNumber LitNumInt i _)] <- getArgs case splitTyConApp_maybe ty of |