persist 0.1.1.3 → 0.1.1.4

raw patch · 2 files changed

+4/−2 lines, 2 files

Files

persist.cabal +1/−1
src/Data/Persist/Internal.hs +3/−1

persist.cabal view

@@ -1,5 +1,5 @@ name:                   persist-version:                0.1.1.3+version:                0.1.1.4 license:                BSD3 license-file:           LICENSE author:                 Daniel Mendler <mail@daniel-mendler.de>,

src/Data/Persist/Internal.hs view

@@ -95,8 +95,10 @@     unGet (f x) e p'   {-# INLINE (>>=) #-} +#if !MIN_VERSION_base(4,11,0)   fail = Fail.fail   {-# INLINE fail #-}+#endif  data GetException   = LengthException Int String@@ -189,7 +191,7 @@ -- | Ensure that @n@ bytes can be written. grow :: Int -> Put () grow n-  | n < 0 = fail "grow: negative length"+  | n < 0 = error "grow: negative length"   | otherwise = Put $ \e p -> do       end <- readIORef (peEnd e)       if end `minusPtr` p >= n then