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

show the value in the error message when failing to get Str from value

Browse Source
This commit is contained in:
aarne
2014-03-17 18:02:07 +00:00
parent 22b68ad30c
commit 891ca74186
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

@@ -280,7 +280,8 @@ strsFromValue t = case t of
] ]
VFV ts -> mapM strsFromValue ts >>= return . concat VFV ts -> mapM strsFromValue ts >>= return . concat
VStrs ts -> mapM strsFromValue ts >>= return . concat VStrs ts -> mapM strsFromValue ts >>= return . concat
_ -> fail "cannot get Str from value"
_ -> fail ("cannot get Str from value " ++ show t)
vfv vs = case nub vs of vfv vs = case nub vs of
[v] -> v [v] -> v