From e77f60cbaf2295a88b4d90e197dd18af8e9e8199 Mon Sep 17 00:00:00 2001 From: Maxim Koltsov Date: Thu, 28 Sep 2023 15:24:16 +0300 Subject: [PATCH] Support unpacking DB Int as Double --- src/Database/Bolt/Extras/Internal/Instances.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Database/Bolt/Extras/Internal/Instances.hs b/src/Database/Bolt/Extras/Internal/Instances.hs index e33b6a9..701ecb7 100644 --- a/src/Database/Bolt/Extras/Internal/Instances.hs +++ b/src/Database/Bolt/Extras/Internal/Instances.hs @@ -19,7 +19,7 @@ import Database.Bolt.Extras.Internal.Types (FromValue (..), NodeLike ( NodeLikeProps (..), ToIsValue (..), ToValue (..)) import Database.Bolt.Extras.Utils (currentLoc) -import GHC.Float (double2Float, float2Double) +import GHC.Float (double2Float, float2Double, int2Double) import GHC.Stack (HasCallStack) @@ -80,6 +80,7 @@ instance FromValue Int where instance FromValue Double where fromValue (F doubleV) = doubleV + fromValue (I intV) = int2Double intV fromValue v = error $ $currentLoc ++ "could not unpack " ++ show v ++ " into Double" instance FromValue Float where