diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-10-27 20:28:29 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-10-27 20:28:29 -0700 |
commit | ff16db1aa306113132cc6cfaa70791a0db75e0a5 (patch) | |
tree | b5a016232c62645a1276c30eb4b69356662c060e /src/Text/Pandoc/App.hs | |
parent | bf54a6335a0d2ae3fdf03e60a84448476f651d59 (diff) |
Automatic reformating by stylish-haskell.
Diffstat (limited to 'src/Text/Pandoc/App.hs')
-rw-r--r-- | src/Text/Pandoc/App.hs | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs index 8533fe48c..ed9992911 100644 --- a/src/Text/Pandoc/App.hs +++ b/src/Text/Pandoc/App.hs @@ -42,18 +42,18 @@ module Text.Pandoc.App ( ) where import qualified Control.Exception as E import Control.Monad -import Control.Monad.Except (throwError, catchError) +import Control.Monad.Except (catchError, throwError) import Control.Monad.Trans -import Data.Monoid import Data.Aeson (FromJSON (..), ToJSON (..), defaultOptions, eitherDecode', encode, genericToEncoding) import qualified Data.ByteString as BS import qualified Data.ByteString.Lazy as B import Data.Char (toLower, toUpper) import Data.Foldable (foldrM) -import Data.List (intercalate, isPrefixOf, isSuffixOf, sort, find) +import Data.List (find, intercalate, isPrefixOf, isSuffixOf, sort) import qualified Data.Map as M import Data.Maybe (fromMaybe, isJust, isNothing) +import Data.Monoid import qualified Data.Set as Set import Data.Text (Text) import qualified Data.Text as T @@ -72,25 +72,25 @@ import System.Environment (getArgs, getEnvironment, getProgName) import System.Exit (ExitCode (..), exitSuccess) import System.FilePath import System.IO (nativeNewline, stdout) -import System.IO.Error (isDoesNotExistError) import qualified System.IO as IO (Newline (..)) +import System.IO.Error (isDoesNotExistError) import Text.Pandoc +import Text.Pandoc.BCP47 (Lang (..), parseBCP47) import Text.Pandoc.Builder (setMeta) -import Text.Pandoc.Class (PandocIO, extractMedia, fillMediaBag, getLog, - setResourcePath, setTrace, report, setRequestHeader, - setUserDataDir, readFileStrict, readDataFile, - readDefaultDataFile, setTranslations, openURL, - setInputFiles, setOutputFile) +import Text.Pandoc.Class (PandocIO, extractMedia, fillMediaBag, getLog, openURL, + readDataFile, readDefaultDataFile, readFileStrict, + report, setInputFiles, setOutputFile, + setRequestHeader, setResourcePath, setTrace, + setTranslations, setUserDataDir) import Text.Pandoc.Highlighting (highlightingStyles) -import Text.Pandoc.BCP47 (parseBCP47, Lang(..)) -import Text.Pandoc.Lua (runLuaFilter, LuaException(..)) -import Text.Pandoc.Writers.Math (defaultMathJaxURL, defaultKaTeXURL) +import Text.Pandoc.Lua (LuaException (..), runLuaFilter) import Text.Pandoc.PDF (makePDF) import Text.Pandoc.Process (pipeProcess) import Text.Pandoc.SelfContained (makeDataURI, makeSelfContained) -import Text.Pandoc.Shared (headerShift, isURI, ordNub, - safeRead, tabFilter, eastAsianLineBreakFilter) +import Text.Pandoc.Shared (eastAsianLineBreakFilter, headerShift, isURI, ordNub, + safeRead, tabFilter) import qualified Text.Pandoc.UTF8 as UTF8 +import Text.Pandoc.Writers.Math (defaultKaTeXURL, defaultMathJaxURL) import Text.Pandoc.XML (toEntities) import Text.Printf #ifndef _WINDOWS @@ -414,7 +414,7 @@ convertWithOpts opts = do case lookup "lang" (optMetadata opts) of Just l -> case parseBCP47 l of - Left _ -> return () + Left _ -> return () Right l' -> setTranslations l' Nothing -> setTranslations $ Lang "en" "" "US" [] @@ -649,7 +649,7 @@ data Opt = Opt , optResourcePath :: [FilePath] -- ^ Path to search for images etc , optRequestHeaders :: [(String, String)] -- ^ Headers for HTTP requests , optEol :: LineEnding -- ^ Style of line-endings to use - , optStripComments :: Bool -- ^ Skip HTML comments + , optStripComments :: Bool -- ^ Skip HTML comments } deriving (Generic, Show) instance ToJSON Opt where @@ -844,7 +844,7 @@ applyLuaFilters mbDatadir filters format d = do let go f d' = do res <- runLuaFilter mbDatadir f format d' case res of - Right x -> return x + Right x -> return x Left (LuaException s) -> E.throw (PandocFilterError f s) foldrM ($) d $ map go expandedFilters |