git.iko.soy/elk
on master help sign in
Shuffle order of definitions in Reporting.Error.Syntax
15eb831Evan Czaplicki
src/Reporting/Error/Syntax.hs+9−9
compare with master
unifiedsplit
@@ -25,7 +25,15 @@ data Error
25 | UnboundTypeVarsInUnion String [String] String [String] [(String, [Type.Raw])]
25 | UnboundTypeVarsInUnion String [String] String [String] [(String, [Type.Raw])]
26
26
27
27
28−-- TO STRING
28+-- TO JSON
29+
30+toJson :: Error -> Json.Value
31+toJson err =
32+ case err of
33+ _ -> error "Syntax.toJson"
34+
35+
36+-- HINTS
29
37
30toHint :: Error -> String
38toHint :: Error -> String
31toHint err =
39toHint err =
@@ -118,11 +126,3 @@ unboundTypeVars typeName tvar tvars revisedDeclaration =
118indent :: String -> String
126indent :: String -> String
119indent string =
127indent string =
120 List.intercalate "\n" (map (" " ++ ) (lines string))
128 List.intercalate "\n" (map (" " ++ ) (lines string))
121−
122−
123−-- TO JSON
124−
125−toJson :: Error -> Json.Value
126−toJson err =
127− case err of
128− _ -> error "Syntax.toJson"