mtlparse 0.1.2 → 0.1.3.0

raw patch · 3 files changed

+7/−3 lines, 3 files

Files

• Text/ParserCombinators/MTLParse.hs +1/−1
• Text/ParserCombinators/MTLParse/MTLParseCore.hs +5/−1
• mtlparse.cabal +1/−1

@@ -47,7 +47,7 @@ ) where  import Text.ParserCombinators.MTLParse.MTLParseCore-import Control.Monad( replicateM, liftM )+import Control.Monad( replicateM )  tokens, tokensBack :: ( Eq a, MonadParse a m ) => [ a ] -> m [ a ] tokens     = foldr ( (>:>).token     ) $ return []

@@ -65,7 +65,8 @@  ) where -import Control.Monad        ( MonadPlus, mplus, mzero, liftM     )+import Control.Applicative  ( Applicative(..)                    )+import Control.Monad        ( MonadPlus, mplus, mzero, liftM, ap ) import Control.Monad.Trans  ( MonadTrans( lift ),                               MonadIO, liftIO                    ) import Control.Monad.Reader ( MonadReader( ask, local ),@@ -122,6 +123,9 @@  instance Functor ( Parse p ) where   fmap f m = Parse $ liftM ( first f ) . runParse m++instance Applicative ( Parse p ) where+  pure = return; (<*>) = ap  instance Monad ( Parse a ) where   return = Parse . \val inp -> [ (val, inp) ]

@@ -1,5 +1,5 @@ Name:		mtlparse-Version:	0.1.2+Version:	0.1.3.0 License:	LGPL License-File:	LICENSE Author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp>