Add the function name to the error messages in resolveLHNames

ucsd-progsys · Dec 12, 2024 · 919776d · 919776d
1 parent bd7dcd8
commit 919776d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/liquidhaskell-boot/src/Language/Haskell/Liquid/LHNameResolution.hs b/liquidhaskell-boot/src/Language/Haskell/Liquid/LHNameResolution.hs
@@ -149,7 +149,7 @@ resolveLHNames cfg thisModule localVars impMods globalRdrEnv lmap bareSpec0 depe
                          sp1
               return (sp2, logicNameEnv0)
             else
-              return (error "invalid spec", error "invalid logic environment")
+              return (error "resolveLHNames: invalid spec", error "resolveLHNames: invalid logic environment")
         logicNameEnv' = extendLogicNameEnv logicNameEnv ns
     if null es then
       Right (bs, logicNameEnv')