@@ -25,7 +25,15 @@ data Error
2525 | UnboundTypeVarsInUnion String [String] String [String] [(String, [Type.Raw])]
2626
2727
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
2937
3038toHint :: Error -> String
3139toHint err =
@@ -118,11 +126,3 @@ unboundTypeVars typeName tvar tvars revisedDeclaration =
118126indent :: String -> String
119127indent string =
120128 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"