yjtools 0.6 → 0.7

raw patch · 2 files changed

+5/−1 lines, 2 files

Files

• Control/Monad/Tools.hs +4/−0
• yjtools.cabal +1/−1

@@ -6,6 +6,7 @@ , doWhile , for_ , for+, skipRet ) where  import Control.Monad         (when, unless)@@ -36,3 +37,6 @@ for i test next j act   | test i    = act i j >>= flip (for (next i) test next) act   | otherwise = return j++skipRet :: Monad m => m b -> a -> m a+skipRet p x = p >> return x

@@ -1,5 +1,5 @@ Name:		yjtools-Version:	0.6+Version:	0.7 Cabal-Version:	>= 1.2 Build-Type:	Simple License:	LGPL