GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-26 13:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Add clarification to "Pattern is not linear" error msg.

Browse Source
This commit is contained in:
Inari Listenmaa
2020-06-04 19:56:31 +02:00
parent 9a903c166f
commit a4e3bce6bb
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/GF/Compile/Compute/ConcreteNew.hs
View File

@@ -546,7 +546,7 @@ value2term' stop loc xs v0 =
linPattVars p = linPattVars p =
if null dups if null dups
then return pvs then return pvs
else fail.render $ hang "Pattern is not linear:" 4 (ppPatt Unqualified 0 p) else fail.render $ hang "Pattern is not linear. All variable names on the left-hand side must be distinct." 4 (ppPatt Unqualified 0 p)
where where
allpvs = allPattVars p allpvs = allPattVars p
pvs = nub allpvs pvs = nub allpvs

2
src/compiler/GF/Compile/Rename.hs
View File

@@ -236,7 +236,7 @@ renamePattern :: Status -> Patt -> Check (Patt,[Ident])
renamePattern env patt = renamePattern env patt =
do r@(p',vs) <- renp patt do r@(p',vs) <- renp patt
let dupl = vs \\ nub vs let dupl = vs \\ nub vs
unless (null dupl) $ checkError (hang ("[C.4.13] Pattern is not linear:") 4 unless (null dupl) $ checkError (hang ("[C.4.13] Pattern is not linear. All variable names on the left-hand side must be distinct.") 4
patt) patt)
return r return r
where where