persistent 2.1.1.3 → 2.1.1.4

raw patch · 3 files changed

+6/−6 lines, 3 filesdep ~aesondep ~basedep ~conduit

Dependency ranges changed: aeson, base, conduit

Files

• Database/Persist/Class/PersistEntity.hs +2/−2
• Database/Persist/Quasi.hs +3/−3
• persistent.cabal +1/−1

@@ -66,7 +66,7 @@     -- | A lower-level operation to convert from database values to a Haskell record     fromPersistValues :: [PersistValue] -> Either Text record -    -- | Unique keys besided the Key+    -- | Unique keys besides the Key     data Unique record     -- | A meta operation to retrieve all the Unique keys     persistUniqueKeys :: record -> [Unique record]@@ -81,7 +81,7 @@  type family BackendSpecificUpdate backend record --- | updataing a database entity+-- | Updating a database entity -- -- Persistent users use combinators to create these data Update record = forall typ. PersistField typ => Update

@@ -62,7 +62,7 @@                 | c == '(' -> parseEnclosed ')' id t'                 | c == '[' -> parseEnclosed ']' FTList t'                 | isUpper c ->-                    let (a, b) = T.break (\x -> isSpace x || x `elem` "()[]") t+                    let (a, b) = T.break (\x -> isSpace x || x `elem` ("()[]"::String)) t                      in PSSuccess (getCon a) b                 | otherwise -> PSFail $ show (c, t')     getCon t =@@ -156,7 +156,7 @@         | T.head t' == '\\' && T.length t' > 1 =             quotes (T.drop 2 t') (front . (T.take 1 (T.drop 1 t'):))         | otherwise =-            let (x, y) = T.break (`elem` "\\\"") t'+            let (x, y) = T.break (`elem` ['\\','\"']) t'              in quotes y (front . (x:))     parens count t' front         | T.null t' = error $ T.unpack $ T.concat $@@ -170,7 +170,7 @@         | T.head t' == '\\' && T.length t' > 1 =             parens count (T.drop 2 t') (front . (T.take 1 (T.drop 1 t'):))         | otherwise =-            let (x, y) = T.break (`elem` "\\()") t'+            let (x, y) = T.break (`elem` ['\\','(',')']) t'              in parens count y (front . (x:))  -- | A string of tokens is empty when it has only spaces.  There

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