GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-29 12:48:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

Don't print out the error msg for pattern matching unnecessarily

Browse Source
This commit is contained in:
Inari Listenmaa
2021-01-20 01:15:28 +08:00
parent d77921005a
commit 1a466c14c8
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/compiler/GF/Compile/GeneratePMCFG.hs
View File

@@ -622,7 +622,9 @@ ppbug msg = error completeMsg
where where
originalMsg = render $ hang "Internal error in GeneratePMCFG:" 4 msg originalMsg = render $ hang "Internal error in GeneratePMCFG:" 4 msg
completeMsg = completeMsg =
unlines [originalMsg case render msg of -- the error message for pattern matching a runtime string
"descend (CStr 0,CNil,CProj (LIdent (Id {rawId2utf8 = \"s\"})) CNil)"
-> unlines [originalMsg -- add more helpful output
,"" ,""
,"1) Check that you are not trying to pattern match a /runtime string/." ,"1) Check that you are not trying to pattern match a /runtime string/."
," These are illegal:" ," These are illegal:"
@@ -633,5 +635,6 @@ ppbug msg = error completeMsg
,"2) Not about pattern matching? Submit a bug report and we update the error message." ,"2) Not about pattern matching? Submit a bug report and we update the error message."
," https://github.com/GrammaticalFramework/gf-core/issues" ," https://github.com/GrammaticalFramework/gf-core/issues"
] ]
_ -> originalMsg -- any other message: just print it as is
ppU = ppTerm Unqualified ppU = ppTerm Unqualified