3fa38db · typeable/pandoc

git.iko.soy/typeable/pandoc

Parsing: Make F an instance of Applicative. Closes #1138.

commit3fa38db80b422af627ba260024756faf2a1d9147 authorJohn MacFarlane <jgm@berkeley.edu> dateMon 24 Mar 2014, 10:29 (13 years ago) parente309717

1 file changed+2−2

unifiedsplit

src/Text/Pandoc/Parsing.hs+2−2

@@ -174,13 +174,13 @@ import Text.Pandoc.Asciify (toAsciiChar)

174174import Data.Default

175175import qualified Data.Set as Set

176176import Control.Monad.Reader

177−import Control.Applicative ((*>), (<*), (<$), liftA2)

177+import Control.Applicative ((*>), (<*), (<$), liftA2, Applicative)

178178import Data.Monoid

179179import Data.Maybe (catMaybes)

180180

181181type Parser t s = Parsec t s

182182

183−newtype F a = F { unF :: Reader ParserState a } deriving (Monad, Functor)

183+newtype F a = F { unF :: Reader ParserState a } deriving (Monad, Applicative, Functor)

184184

185185runF :: F a -> ParserState -> a

186186runF = runReader . unF