wip

yesodweb · Jul 5, 2020 · 37daaad · 37daaad
1 parent f56f1a2
commit 37daaad
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/persistent/Database/Persist/Class/PersistField.hs b/persistent/Database/Persist/Class/PersistField.hs
@@ -19,6 +19,7 @@ import Data.Int (Int8, Int16, Int32, Int64)
 import qualified Data.IntMap as IM
 import qualified Data.Map as M
 import Data.Monoid ((<>))
+import Data.Ratio (denominator, numerator)
 import qualified Data.Set as S
 import Data.Text (Text)
 import qualified Data.Text as T
@@ -230,6 +231,9 @@ instance PersistField Word64 where
     toPersistValue = PersistWord64 . fromIntegral
     fromPersistValue (PersistWord64 w) = Right $ fromIntegral w
     fromPersistValue (PersistInt64 i) = Right $ fromIntegral i
+    fromPersistValue x@(PersistRational r) = if denominator r == 1
+                                               then Right $ fromIntegral (numerator r)
+                                               else Left $ fromPersistValueError "Word64" "rational" x
     fromPersistValue x = Left $ fromPersistValueError "Word64" "integer" x
 
 instance PersistField Double where