summaryrefslogtreecommitdiff
path: root/src/Logstat/Value.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Logstat/Value.hs')
-rw-r--r--src/Logstat/Value.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Logstat/Value.hs b/src/Logstat/Value.hs
index 1d81d47..ec505d3 100644
--- a/src/Logstat/Value.hs
+++ b/src/Logstat/Value.hs
@@ -16,7 +16,7 @@ asBS :: Val -> B.ByteString
asBS (Val b _) = b
asNum :: MonadError EvalError m => Val -> m Double
-asNum (Val b n) = maybe (throwError $ InvalidNumber b) return n
+asNum (Val b n) = maybe (throwError $ Loc Nothing $ InvalidNumber b) return n
-- Constructors are strict in their arguments
bool :: Bool -> Val