fclabels-monadlib 0.0.1 → 0.1.0

raw patch · 3 files changed

+22/−20 lines, 3 filesdep ~fclabels

Dependency ranges changed: fclabels

Files

• fclabels-monadlib.cabal +3/−3
• src/Data/Label/MonadLib.hs +19/−0
• src/Data/Record/Label/MonadLib.hs +0/−17

@@ -1,5 +1,5 @@ Name:                fclabels-monadlib-Version:             0.0.1+Version:             0.1.0 Synopsis:            MonadLib monadic interface for the "fclabels" package. Description:         A MonadLib-compatible monadic interface for the "fclabels" package. License:             BSD3@@ -14,8 +14,8 @@         build-depends:       base == 4.*,                              haskell98,                              monadLib == 3.6.*,-                             fclabels == 0.11.*+                             fclabels == 1.0.*         extensions:          TypeOperators         ghc-options:         -Wall         hs-source-dirs:      src-        exposed-modules:     Data.Record.Label.MonadLib+        exposed-modules:     Data.Label.MonadLib

@@ -0,0 +1,19 @@+module Data.Label.MonadLib+       ( module L+       , modM+       , setM+       , getM+       ) where++import Data.Label ((:->))+import MonadLib.Monads+import qualified Data.Label as L++modM :: StateM m f => (f :-> a) -> (a -> a) -> m ()+modM l f = liftM (L.modify l f) get >>= set++setM :: StateM m f => (f :-> a) -> a -> m ()+setM l a = liftM (L.set l a) get >>= set++getM :: StateM m f => (f :-> a) -> m a+getM l = liftM (L.get l) get

@@ -1,17 +0,0 @@-module Data.Record.Label.MonadLib ( module L-                                  , modM-                                  , setM-                                  , getM-                                  ) where--import Data.Record.Label as L hiding (modM, setM, getM)-import MonadLib.Monads--modM :: StateM m f => (f :-> a) -> (a -> a) -> m ()-modM l f = liftM (modL l f) get >>= set--setM :: StateM m f => (f :-> a) -> a -> m ()-setM l a = liftM (setL l a) get >>= set--getM :: StateM m f => (f :-> a) -> m a-getM l = liftM (getL l) get