@@ -252,7 +252,7 @@ data Phase = CompileTime | RunTime
252252
253253simpleCase :: Bool -> SC -> Bool ->
254254 Phase -> FC -> [Int] ->
255− [(Type, Bool)] -> -- ^ (Argument type, whether it's canonical)
255+ [(Type, Bool)] -> -- (Argument type, whether it's canonical)
256256 [([Name], Term, Term)] ->
257257 ErasureInfo ->
258258 TC CaseDef