HGraphStorage 0.0.1 → 0.0.2
raw patch · 2 files changed
+9/−9 lines, 2 filesdep ~monad-control
Dependency ranges changed: monad-control
Files
HGraphStorage.cabal view
@@ -1,5 +1,5 @@ name: HGraphStorage-version: 0.0.1+version: 0.0.2 cabal-version: >= 1.8 build-type: Simple author: JP Moresmau <jp@moresmau.fr>@@ -31,7 +31,7 @@ lifted-base, transformers-base, transformers,- monad-control,+ monad-control >= 1.0, monad-logger, resourcet ghc-options: -Wall@@ -88,7 +88,7 @@ lifted-base, transformers-base, transformers,- monad-control,+ monad-control >= 1.0, monad-logger, resourcet other-modules:
src/Database/Graph/HGraphStorage/API.hs view
@@ -86,14 +86,14 @@ liftBase = lift . liftBase instance MonadTransControl GraphStorageT where- newtype StT GraphStorageT a = GsStT { unGsStT :: StT (StateT GsData) a }- liftWith f = Gs $ liftWith (\run -> f (liftM GsStT . run . unIs))- restoreT = Gs . restoreT . liftM unGsStT+ type StT GraphStorageT a = StT (StateT GsData) a+ liftWith f = Gs $ liftWith (\run -> f (run . unIs))+ restoreT = Gs . restoreT instance MonadBaseControl b m => MonadBaseControl b (GraphStorageT m) where- newtype StM (GraphStorageT m) a = StMT {unStMT :: ComposeSt GraphStorageT m a}- liftBaseWith = defaultLiftBaseWith StMT- restoreM = defaultRestoreM unStMT+ type StM (GraphStorageT m) a = ComposeSt GraphStorageT m a+ liftBaseWith = defaultLiftBaseWith+ restoreM = defaultRestoreM instance (MonadLogger m) => MonadLogger (GraphStorageT m) where monadLoggerLog loc src lvl msg=lift $ monadLoggerLog loc src lvl msg