diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-03-01 23:36:54 +0400 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-03-01 20:36:54 +0100 |
| commit | 39a8359b571ba0aa1e193b0ff9ef6252acc7a754 (patch) | |
| tree | d222a0642b0dd379280a05b598101a53da816fba /src/Text/Pandoc/Writers/Org.hs | |
| parent | ea619bfcb4dd58f4ea0f3b02a61dc734180b79b2 (diff) | |
Writers: Use gets to access MonadState where possible (#3480)
Diffstat (limited to 'src/Text/Pandoc/Writers/Org.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Org.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs index 55d3fe656..848b273c3 100644 --- a/src/Text/Pandoc/Writers/Org.hs +++ b/src/Text/Pandoc/Writers/Org.hs @@ -61,7 +61,7 @@ writeOrg opts document = return $ -- | Return Org representation of document. pandocToOrg :: Pandoc -> State WriterState String pandocToOrg (Pandoc meta blocks) = do - opts <- liftM stOptions get + opts <- gets stOptions let colwidth = if writerWrapText opts == WrapAuto then Just $ writerColumns opts else Nothing @@ -70,8 +70,8 @@ pandocToOrg (Pandoc meta blocks) = do (fmap (render colwidth) . inlineListToOrg) meta body <- blockListToOrg blocks - notes <- liftM (reverse . stNotes) get >>= notesToOrg - hasMath <- liftM stHasMath get + notes <- gets (reverse . stNotes) >>= notesToOrg + hasMath <- gets stHasMath let main = render colwidth $ foldl ($+$) empty $ [body, notes] let context = defField "body" main $ defField "math" hasMath @@ -188,7 +188,7 @@ blockToOrg (Header level attr inlines) = do else cr <> nest (level + 1) (propertiesDrawer attr) return $ headerStr <> " " <> contents <> drawerStr <> blankline blockToOrg (CodeBlock (_,classes,_) str) = do - opts <- stOptions <$> get + opts <- gets stOptions let tabstop = writerTabStop opts let at = map pandocLangToOrg classes `intersect` orgLangIdentifiers let (beg, end) = case at of @@ -365,7 +365,7 @@ inlineToOrg (Image _ _ (source, _)) = do return $ "[[" <> text (orgPath source) <> "]]" inlineToOrg (Note contents) = do -- add to notes in state - notes <- get >>= (return . stNotes) + notes <- gets stNotes modify $ \st -> st { stNotes = contents:notes } let ref = show $ (length notes) + 1 return $ "[fn:" <> text ref <> "]" |