persistent 0.2.0 → 0.2.0.1

raw patch · 3 files changed

+46/−3 lines, 3 files

Files

• Database/Persist/Base.hs +44/−1
• Database/Persist/GenericSql.hs +1/−1
• persistent.cabal +1/−1

@@ -36,7 +36,8 @@ import qualified Data.ByteString.UTF8 as BSU import Control.Applicative import Data.Typeable (Typeable)-import Data.Int (Int64)+import Data.Int (Int8, Int16, Int32, Int64)+import Data.Word (Word8, Word16, Word32, Word64) import Text.Hamlet import qualified Data.Text as T import qualified Data.ByteString as S@@ -113,10 +114,52 @@     fromPersistValue x = Left $ "Expected Integer, received: " ++ show x     sqlType _ = SqlInteger +instance PersistField Int8 where+    toPersistValue = PersistInt64 . fromIntegral+    fromPersistValue (PersistInt64 i) = Right $ fromIntegral i+    fromPersistValue x = Left $ "Expected Integer, received: " ++ show x+    sqlType _ = SqlInteger++instance PersistField Int16 where+    toPersistValue = PersistInt64 . fromIntegral+    fromPersistValue (PersistInt64 i) = Right $ fromIntegral i+    fromPersistValue x = Left $ "Expected Integer, received: " ++ show x+    sqlType _ = SqlInteger++instance PersistField Int32 where+    toPersistValue = PersistInt64 . fromIntegral+    fromPersistValue (PersistInt64 i) = Right $ fromIntegral i+    fromPersistValue x = Left $ "Expected Integer, received: " ++ show x+    sqlType _ = SqlInteger+ instance PersistField Int64 where     toPersistValue = PersistInt64 . fromIntegral     fromPersistValue (PersistInt64 i) = Right $ fromIntegral i     fromPersistValue x = Left $ "Expected Integer, received: " ++ show x+    sqlType _ = SqlInteger++instance PersistField Word8 where+    toPersistValue = PersistInt64 . fromIntegral+    fromPersistValue (PersistInt64 i) = Right $ fromIntegral i+    fromPersistValue x = Left $ "Expected Wordeger, received: " ++ show x+    sqlType _ = SqlInteger++instance PersistField Word16 where+    toPersistValue = PersistInt64 . fromIntegral+    fromPersistValue (PersistInt64 i) = Right $ fromIntegral i+    fromPersistValue x = Left $ "Expected Wordeger, received: " ++ show x+    sqlType _ = SqlInteger++instance PersistField Word32 where+    toPersistValue = PersistInt64 . fromIntegral+    fromPersistValue (PersistInt64 i) = Right $ fromIntegral i+    fromPersistValue x = Left $ "Expected Wordeger, received: " ++ show x+    sqlType _ = SqlInteger++instance PersistField Word64 where+    toPersistValue = PersistInt64 . fromIntegral+    fromPersistValue (PersistInt64 i) = Right $ fromIntegral i+    fromPersistValue x = Left $ "Expected Wordeger, received: " ++ show x     sqlType _ = SqlInteger  instance PersistField Double where

@@ -170,7 +170,7 @@         lim conn = case (limit, offset) of                 (0, 0) -> ""                 (0, _) -> ' ' : noLimit conn-                (l, _) -> " LIMIT " ++ show limit+                (_, _) -> " LIMIT " ++ show limit         off = if offset == 0                     then ""                     else " OFFSET " ++ show offset

@@ -1,5 +1,5 @@ name:            persistent-version:         0.2.0+version:         0.2.0.1 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>