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

2014-03-17 18:02:07 +00:00
parent 22b68ad30c
commit 891ca74186
1 changed files with 2 additions and 1 deletions
--- 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