1 files changed, 3 insertions, 2 deletions
diff --git a/pandoc.hs b/pandoc.hs
index 6857ebdda..c93cd62bc 100644
--- a/pandoc.hs
+++ b/pandoc.hs
@@ -1016,8 +1016,9 @@ main = do
                            then handleIncludes
                            else return
 
-  doc <- (reader readerOpts) `fmap` (readSources sources >>=
-             handleIncludes' . convertTabs . intercalate "\n")
+  doc <- readSources sources >>=
+           handleIncludes' . convertTabs . intercalate "\n" >>=
+           reader readerOpts
 
   let doc0 = foldr ($) doc transforms