diff options
Diffstat (limited to 'src/Logstat/Value.hs')
-rw-r--r-- | src/Logstat/Value.hs | 2 |
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 |