preamble 0.0.27 → 0.0.28

raw patch · 2 files changed

+13/−1 lines, 2 files

Files

• preamble.cabal +1/−1
• src/Preamble/Types/Orphan.hs +12/−0

@@ -1,5 +1,5 @@ name:                  preamble-version:               0.0.27+version:               0.0.28 synopsis:              Yet another prelude. description:           A prelude built on basic-prelude. homepage:              https://github.com/swift-nav/preamble

@@ -5,6 +5,8 @@ -- module Preamble.Types.Orphan where +import Control.Monad.Random+import Control.Monad.Trans.Resource import Data.Aeson import Data.UUID import Preamble.Prelude@@ -15,3 +17,13 @@ instance FromJSON UUID where   parseJSON (String s) = maybe mzero return $ fromText s   parseJSON _ = mzero++instance MonadRandom m => MonadRandom (ResourceT m) where+  getRandom   = lift getRandom+  {-# INLINE getRandom #-}+  getRandoms  = lift getRandoms+  {-# INLINE getRandomR #-}+  getRandomR  = lift . getRandomR+  {-# INLINE getRandoms #-}+  getRandomRs = lift . getRandomRs+  {-# INLINE getRandomRs #-}