From 891ca74186af10e7118a7f63bfa694fbcd5c2b1c Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 17 Mar 2014 18:02:07 +0000 Subject: [PATCH] show the value in the error message when failing to get Str from value --- src/compiler/GF/Compile/Compute/ConcreteNew.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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