Support unpacking DB Int as Double

biocad · Sep 28, 2023 · e77f60c · e77f60c
1 parent 9d5e9d7
commit e77f60c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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