preamble 0.0.48 → 0.0.49

raw patch · 5 files changed

+11/−11 lines, 5 filesdep ~shakersPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: shakers

API changes (from Hackage documentation)

Files

• preamble.cabal +2/−2
• src/Preamble/Lens.hs +1/−1
• src/Preamble/Prelude.hs +6/−6
• src/Preamble/Trace.hs +1/−1
• src/Preamble/Types/Orphan.hs +1/−1

@@ -1,5 +1,5 @@ name: preamble-version: 0.0.48+version: 0.0.49 cabal-version: >=1.22 build-type: Simple license: MIT@@ -61,7 +61,7 @@     main-is: Shakefile.hs     build-depends:         base >=4.8 && <5,-        shakers >=0.0.28+        shakers >=0.0.31     default-language: Haskell2010     ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall 

@@ -15,7 +15,7 @@ makeClassyConstraints :: Name -> [Name] -> DecsQ makeClassyConstraints name names = do   decls <- makeClassy name-  return $ addConstraints names decls+  pure $ addConstraints names decls  -- | Add constaints to a class. --

@@ -41,28 +41,28 @@  -- | Maybe that returns () if Nothing ---maybe_ :: Monad m => Maybe a -> (a -> m ()) -> m ()-maybe_ = flip $ maybe $ return ()+maybe_ :: Applicative f => Maybe a -> (a -> f ()) -> f ()+maybe_ = flip $ maybe $ pure ()  -- | Throw Exception on either error. -- eitherThrowIO :: (MonadIO m, Exception e) => Either e a -> m a-eitherThrowIO = either (liftIO . throwIO) return+eitherThrowIO = either (liftIO . throwIO) pure  -- | Throw userError on either error. -- eitherThrowIO' :: MonadIO m => Either String a -> m a-eitherThrowIO' = either (liftIO . throwIO . userError) return+eitherThrowIO' = either (liftIO . throwIO . userError) pure  -- | Throw Exception on maybe nothing. -- maybeThrowIO :: (MonadIO m, Exception e) => e -> Maybe a -> m a-maybeThrowIO e = maybe (liftIO $ throwIO e) return+maybeThrowIO e = maybe (liftIO $ throwIO e) pure  -- | Throw userError on maybe nothing. -- maybeThrowIO' :: MonadIO m => String -> Maybe a -> m a-maybeThrowIO' s = maybe (liftIO $ throwIO $ userError s) return+maybeThrowIO' s = maybe (liftIO $ throwIO $ userError s) pure  -- | Throw userError on false. --

@@ -53,7 +53,7 @@ -- | Logger to nowhere. -- nullLogger :: Logger-nullLogger _loc _source _level _s = return ()+nullLogger _loc _source _level _s = pure ()  -- | Trace out event with preamble and timestamp. --

@@ -21,7 +21,7 @@   toJSON = toJSON . toText  instance FromJSON UUID where-  parseJSON (String s) = maybe mzero return $ fromText s+  parseJSON (String s) = maybe mzero pure $ fromText s   parseJSON _ = mzero #endif