yogsototh/elm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix style of error message for undefined variables

Browse source
This commit is contained in:
Evan Czaplicki 2014-02-10 23:21:22 +01:00
parent 33bd016678
commit 4b80c13875
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
compiler/Transform/Canonicalize.hs
View file

@ -12,6 +12,7 @@ import qualified Data.Traversable as T
import SourceSyntax.Annotation as A
import SourceSyntax.Expression
import SourceSyntax.Module
import SourceSyntax.PrettyPrint (pretty)
import qualified SourceSyntax.Pattern as P
import qualified SourceSyntax.Type as Type
import qualified SourceSyntax.Variable as Var
@ -114,7 +115,10 @@ replace variable env v =
rename :: Env -> Expr -> Either [Doc] Expr
rename env (A ann expr) =
let rnm = rename env
throw err = Left [ P.text $ "Error " ++ show ann ++ "\n" ++ err ]
throw err = Left [ P.vcat [ P.text "Error" <+> pretty ann <> P.colon
, P.text err
]
]
format = Either.either throw return
renameType' environ = renameType (format . replace "variable" environ)
in