git.iko.soy/typeable/pandoc
on master help sign in
Parsing: Make F an instance of Applicative. Closes #1138.
3fa38dbJohn MacFarlane
src/Text/Pandoc/Parsing.hs+2−2
compare with master
unifiedsplit
@@ -174,13 +174,13 @@ import Text.Pandoc.Asciify (toAsciiChar)
174import Data.Default
174import Data.Default
175import qualified Data.Set as Set
175import qualified Data.Set as Set
176import Control.Monad.Reader
176import Control.Monad.Reader
177−import Control.Applicative ((*>), (<*), (<$), liftA2)
177+import Control.Applicative ((*>), (<*), (<$), liftA2, Applicative)
178import Data.Monoid
178import Data.Monoid
179import Data.Maybe (catMaybes)
179import Data.Maybe (catMaybes)
180
180
181type Parser t s = Parsec t s
181type Parser t s = Parsec t s
182
182
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)
184
184
185runF :: F a -> ParserState -> a
185runF :: F a -> ParserState -> a
186runF = runReader . unF
186runF = runReader . unF