persistent 0.6.4.3 → 0.6.4.4

raw patch · 3 files changed

+4/−2 lines, 3 files

Files

• Database/Persist/Base.hs +1/−1
• Database/Persist/GenericSql/Internal.hs +2/−0
• persistent.cabal +1/−1

@@ -374,7 +374,7 @@     fromPersistValue x = fmap SomePersistField (fromPersistValue x :: Either String String)     sqlType (SomePersistField a) = sqlType a -newtype Key backend entity = Key { unKey :: PersistValue }+newtype Key (backend :: (* -> *) -> * -> *) entity = Key { unKey :: PersistValue }     deriving (Show, Read, Eq, Ord, PersistField)  class (Trans.MonadIO (b m), Trans.MonadIO m, Monad (b m), Monad m) => PersistBackend b m where

@@ -195,7 +195,9 @@         (a, b) = unzip $ map go fs         wrapP x = concat ["(", x, ")"] +    go (FilterAnd []) = ("1=0", [])     go (FilterAnd fs) = combineAND fs+    go (FilterOr []) = ("1=1", [])     go (FilterOr fs)  = combine " OR " fs     go (Filter field value pfilter) =         case (isNull, pfilter, varCount) of

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