Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed error message

Browse source
This commit is contained in:
sebastianselander 2023-05-15 13:45:50 +02:00
parent 229679f60d
commit 9495c3b12a
3 changed files with 7 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Renamer/Renamer.hs
View file

@ -94,7 +94,7 @@ newtype Rn a = Rn {runRn :: ExceptT String (State Cxt) a}
getName :: LIdent -> Rn LIdent
getName name = maybeToRightM err =<< gets (Map.lookup name . names)
where err = "Can't find new name " ++ printTree name
where err = "Unbound variable: '" ++ printTree name ++ "'"
newName :: LIdent -> Rn LIdent
newName name = do