diff options
Diffstat (limited to 'src/compiler/GF')
| -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 |