github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 23:42:31 +03:00
Code Issues Projects Releases Wiki Activity

Show the friendly qualified name for free variable error msg

Browse Source
This commit is contained in:
Timothy Clem 2018-03-15 15:06:27 -07:00
parent 6f738ee625
commit f72d7f20df
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/Syntax.hs
View File

@ -110,7 +110,7 @@ instance Show1 Identifier where liftShowsPrec = genericLiftShowsPrec
instance Evaluatable Identifier where instance Evaluatable Identifier where
eval (Identifier name) = do eval (Identifier name) = do
env <- askLocalEnv env <- askLocalEnv
maybe (fail ("free variable: " <> show name)) deref (envLookup name env) maybe (fail ("free variable: " <> show (friendlyName name))) deref (envLookup name env)
instance FreeVariables1 Identifier where instance FreeVariables1 Identifier where
liftFreeVariables _ (Identifier x) = Set.singleton x liftFreeVariables _ (Identifier x) = Set.singleton x