diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-03-24 10:29:24 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-03-24 10:29:24 -0700 |
| commit | 3fa38db80b422af627ba260024756faf2a1d9147 (patch) | |
| tree | 264f11e5a55dcff2a85db5ac375b7bfb14f8acac /src | |
| parent | e3097172b1c9fbdc329584e2c121044faed57936 (diff) | |
| download | pandoc-3fa38db80b422af627ba260024756faf2a1d9147.tar.gz | |
Parsing: Make F an instance of Applicative. Closes #1138.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Parsing.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index 2bc351db3..883a560d0 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -174,13 +174,13 @@ import Text.Pandoc.Asciify (toAsciiChar) import Data.Default import qualified Data.Set as Set import Control.Monad.Reader -import Control.Applicative ((*>), (<*), (<$), liftA2) +import Control.Applicative ((*>), (<*), (<$), liftA2, Applicative) import Data.Monoid import Data.Maybe (catMaybes) type Parser t s = Parsec t s -newtype F a = F { unF :: Reader ParserState a } deriving (Monad, Functor) +newtype F a = F { unF :: Reader ParserState a } deriving (Monad, Applicative, Functor) runF :: F a -> ParserState -> a runF = runReader . unF |