preamble 0.0.62 → 0.0.63

raw patch · 2 files changed

+9/−1 lines, 2 filesdep +unliftio-core

Dependencies added: unliftio-core

Files

• preamble.cabal +2/−1
• src/Preamble/Types/Trans.hs +7/−0

@@ -1,6 +1,6 @@ cabal-version: >=1.22 name: preamble-version: 0.0.62+version: 0.0.63 license: MIT license-file: LICENSE copyright: Copyright (C) 2016 Swift Navigation, Inc.@@ -55,5 +55,6 @@         text-manipulate >=0.2.0.1,         time >=1.8.0.2,         transformers-base >=0.4.4,+        unliftio-core >=0.1.1.0,         unordered-containers >=0.2.9.0,         uuid >=1.3.13

@@ -12,12 +12,14 @@   , MonadBaseControl   , MonadReader   , MonadResource+  , MonadUnliftIO   , runResourceT   ) where  import Control.Monad.Base import Control.Monad.Catch import Control.Monad.Logger+import Control.Monad.IO.Unlift import Control.Monad.Random import Control.Monad.Reader import Control.Monad.Trans.Control@@ -59,6 +61,11 @@ instance MonadResource m => MonadResource (TransT c m) where   liftResourceT = lift . liftResourceT   {-# INLINE liftResourceT #-}++instance MonadUnliftIO m => MonadUnliftIO (TransT c m) where+  askUnliftIO = TransT $ (\(UnliftIO f) -> UnliftIO $ f . unTransT)+      <$> askUnliftIO+  {-# INLINE askUnliftIO #-}  instance MonadRandom m => MonadRandom (TransT c m) where   getRandom   = lift getRandom