msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

partial evaluator: prettier complaint about nonlinears patterns

Browse Source
This commit is contained in:
hallgren
2013-09-09 16:23:01 +00:00
parent 990789eb91
commit 3543cb7a16
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -329,7 +329,8 @@ valueTable env i cs =
pvs = nub allpvs pvs = nub allpvs
dups = allpvs \\ pvs dups = allpvs \\ pvs
unless (null dups) $ unless (null dups) $
fail $ "Pattern is not linear: "++show p' fail.render $ hang (text "Pattern is not linear:") 4
(ppPatt Unqualified 0 p')
vt <- value (extend pvs env) t vt <- value (extend pvs env) t
return (p', \ vs -> Bind $ \ bs -> vt (push' p' bs pvs vs)) return (p', \ vs -> Bind $ \ bs -> vt (push' p' bs pvs vs))
--{- --{-