on master help sign in
Fix typo in exhaustiveness checks for three-tuples
commit3f5f808c90e34f57d46fe9ddfdb7148982cd9fd1 authorEvan Czaplicki <evancz@users.noreply.github.com> dateTue 16 Jan 2018, 20:56 (9 years ago) parent546be39
1 file changed+1−1
src/Nitpick/PatternMatches.hs+1−1
src/Nitpick/PatternMatches.hs+1−1
@@ -135,7 +135,7 @@ triple :: Can.Union
135135triple =
136136 let
137137 ctor =
138− Can.Ctor pairName Index.first 3 [Can.TVar "a", Can.TVar "b", Can.TVar "c"]
138+ Can.Ctor tripleName Index.first 3 [Can.TVar "a", Can.TVar "b", Can.TVar "c"]
139139 in
140140 Can.Union ["a","b","c"] [ ctor ] 1 Can.Normal
141141