summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Class.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-12-13 20:48:24 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2017-12-13 20:48:24 -0800
commit935b16b38a710a26b06f0ae2ced5967429e010cc (patch)
treef61876fc55ff3c943a4ec2eddcf77d3326f2e2b8 /src/Text/Pandoc/Class.hs
parent52a8116e71636f05053c959675b3abcb745e921a (diff)
Removed whitespace at ends of line.
Diffstat (limited to 'src/Text/Pandoc/Class.hs')
-rw-r--r--src/Text/Pandoc/Class.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Class.hs b/src/Text/Pandoc/Class.hs
index f48b19c12..c63781adf 100644
--- a/src/Text/Pandoc/Class.hs
+++ b/src/Text/Pandoc/Class.hs
@@ -453,7 +453,7 @@ runIO :: PandocIO a -> IO (Either PandocError a)
runIO ma = flip evalStateT def $ runExceptT $ unPandocIO ma
-- | Evaluate a 'PandocIO' operation, handling any errors
--- by exiting with an appropriate message and error status.
+-- by exiting with an appropriate message and error status.
runIOorExplode :: PandocIO a -> IO a
runIOorExplode ma = runIO ma >>= handleError
@@ -720,7 +720,7 @@ getDefaultReferencePptx = do
epochtime <- (floor . utcTimeToPOSIXSeconds) <$> getCurrentTime
contents <- toLazy <$> readDataFile ("pptx/" ++ path)
return $ toEntry path epochtime contents
- datadir <- getUserDataDir
+ datadir <- getUserDataDir
mbArchive <- case datadir of
Nothing -> return Nothing
Just d -> do
@@ -732,7 +732,7 @@ getDefaultReferencePptx = do
Just arch -> toArchive <$> readFileLazy arch
Nothing -> foldr addEntryToArchive emptyArchive <$>
mapM pathToEntry paths
-
+
-- | Read file from user data directory or,
-- if not found there, from Cabal data directory.