persistent 2.0.5 → 2.0.5.1

raw patch · 5 files changed

+8/−4 lines, 5 files

Files

• Database/Persist/Sql/Orphan/PersistQuery.hs +1/−0
• Database/Persist/Sql/Orphan/PersistStore.hs +1/−0
• Database/Persist/Types.hs +2/−1
• Database/Persist/Types/Base.hs +3/−2
• persistent.cabal +1/−1

@@ -214,6 +214,7 @@     go'' n Subtract = mconcat [n, "=", n, "-?"]     go'' n Multiply = mconcat [n, "=", n, "*?"]     go'' n Divide = mconcat [n, "=", n, "/?"]+    go'' _ (BackendSpecificUpdate up) = error $ T.unpack $ "BackendSpecificUpdate" `mappend` up `mappend` "not supported"     go' conn (x, pu) = go'' (connEscapeName conn x) pu     go x = (updateField x, updateUpdate x) 

@@ -51,6 +51,7 @@             go'' n Subtract = T.concat [n, "=", n, "-?"]             go'' n Multiply = T.concat [n, "=", n, "*?"]             go'' n Divide = T.concat [n, "=", n, "/?"]+            go'' _ (BackendSpecificUpdate up) = error $ T.unpack $ "BackendSpecificUpdate" `mappend` up `mappend` "not supported"         let go' (x, pu) = go'' (connEscapeName conn x) pu         let wher = case entityPrimary t of                 Just pdef -> T.intercalate " AND " $ map (\fld -> connEscapeName conn (fieldDB fld) <> "=? ") $ compositeFields pdef

@@ -4,9 +4,10 @@     ( module Database.Persist.Types.Base     , SomePersistField (..)     , Update (..)+    , BackendSpecificUpdate     , SelectOpt (..)-    , BackendSpecificFilter     , Filter (..)+    , BackendSpecificFilter     , Key     , Entity (..)     ) where

@@ -432,5 +432,6 @@ instance Exception OnlyUniqueException  -data PersistUpdate = Assign | Add | Subtract | Multiply | Divide -- FIXME need something else here-    deriving (Read, Show, Enum, Bounded)+data PersistUpdate = Assign | Add | Subtract | Multiply | Divide+                   | BackendSpecificUpdate T.Text+    deriving (Read, Show)

@@ -1,5 +1,5 @@ name:            persistent-version:         2.0.5+version:         2.0.5.1 license:         MIT license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>