compiler: fix isabelle name error messages

[skip lemma]
au-ts · Nov 12, 2019 · c58cbc0 · c58cbc0
1 parent f09740c
commit c58cbc0
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/cogent/src/Cogent/Isabelle/IsabelleName.hs b/cogent/src/Cogent/Isabelle/IsabelleName.hs
@@ -35,12 +35,12 @@ newtype IsabelleName = IsabelleName { unIsabelleName :: String }
 safeName :: IsabelleName -> IsabelleName
 safeName (IsabelleName nm) = IsabelleName $
   case isReserved nm of
-    True -> error $ "Error: function name '" ++ nm ++ "' is a reserved isabelle name" 
+    True -> error $ "Error: function name `" ++ nm ++ "' is a reserved isabelle name" 
     -- Add debug note
     False -> case "_" `isPrefixOf` nm of
-      True  -> error $ "Error: function name" ++ nm ++ "' cannot start with underscores"
+      True  -> error $ "Error: function name `" ++ nm ++ "' cannot start with underscores"
       False -> case "_" `isSuffixOf` nm of
-        True  -> error $ "Error: function name" ++ nm ++ "' cannot end with underscores"
+        True  -> error $ "Error: function name `" ++ nm ++ "' cannot end with underscores"
         False -> nm
 
 isReserved :: String -> Bool