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

Use throwError instead of error

Browse source
This commit is contained in:
Martin Fredin 2023-04-28 14:20:24 +02:00
parent e8d37c77cb
commit 38b88d36b5
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/TypeChecker/TypeCheckerBidir.hs
View file

@ -605,7 +605,7 @@ instantiateR a alpha = gets env >>= \env -> go env a alpha
let (env_l, _) = splitOn (EnvMark epsilon') env let (env_l, _) = splitOn (EnvMark epsilon') env
putEnv env_l putEnv env_l
go _ a alpha = error $ "Trying to instantiateR: " ++ ppT a ++ " <: " go _ a alpha = throwError $ "Trying to instantiateR: " ++ ppT a ++ " <: "
++ ppT (TEVar alpha) ++ ppT (TEVar alpha)
--------------------------------------------------------------------------- ---------------------------------------------------------------------------