diff options
| author | aarne <aarne@chalmers.se> | 2014-03-17 18:02:07 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2014-03-17 18:02:07 +0000 |
| commit | 891ca74186af10e7118a7f63bfa694fbcd5c2b1c (patch) | |
| tree | 11a0bc19bc34001edff3ec3c0e84efaf419df937 /src | |
| parent | 22b68ad30cf9e5bd8e5ede60ec6c04d1294d18a7 (diff) | |
show the value in the error message when failing to get Str from value
Diffstat (limited to 'src')
| -rw-r--r-- | src/compiler/GF/Compile/Compute/ConcreteNew.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/compiler/GF/Compile/Compute/ConcreteNew.hs b/src/compiler/GF/Compile/Compute/ConcreteNew.hs index f98ed1c90..1b5559808 100644 --- a/src/compiler/GF/Compile/Compute/ConcreteNew.hs +++ b/src/compiler/GF/Compile/Compute/ConcreteNew.hs @@ -280,7 +280,8 @@ strsFromValue t = case t of ] VFV 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 [v] -> v |