moffy 0.1.0.0 → 0.1.1.0

raw patch · 4 files changed

+12/−9 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

+ Control.Moffy: atResult :: (r -> String) -> (r' -> String) -> Either r (Maybe a, r') -> Either String a

Files

README.md +6/−0
moffy.cabal +1/−2
src/Control/Moffy.hs +5/−1
src/Lib.hs +0/−6

README.md view

@@ -1,1 +1,7 @@ # moffy++One of the implementation of Monadic Functional Reactive Programming.++[Monadic Functional Reactive Programming](<http://github.com/bitemyapp/papers/blob/master/Monadic Functional Reactive Programming.pdf>)++I'll write the documentation later.

moffy.cabal view

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           moffy-version:        0.1.0.0+version:        0.1.1.0 synopsis:       Monadic Functional Reactive Programming description:    Please see the README on GitHub at <https://github.com/YoshikuniJujo/moffy#readme> category:       Control@@ -43,7 +43,6 @@       Control.Moffy.Run   other-modules:       Control.Moffy.Event.Lock.Internal-      Lib       Paths_moffy   autogen-modules:       Paths_moffy

src/Control/Moffy.hs view

@@ -19,7 +19,7 @@ 	-- ** Traverse 	find, scanl, 	-- ** Parallel-	first, at, break, until, indexBy,+	first, at, atResult, break, until, indexBy, 	-- ** Copies 	spawn, parList ) where @@ -57,6 +57,10 @@ 	Sig s es a r -> React s es' r' -> 	React s (es :+: es') (Either r (Maybe a, r')) at = at_ forkThreadId++atResult :: (r -> String) -> (r' -> String) ->+	(Either r (Maybe a, r')) -> (Either String a)+atResult m1 m2 = (Left . m1) `either` (\(mx, r) -> maybe (Left $ m2 r) Right mx)  infixl 7 `break`, `until`

− src/Lib.hs

@@ -1,6 +0,0 @@-module Lib-    ( someFunc-    ) where--someFunc :: IO ()-someFunc = putStrLn "someFunc"