@@ -484,7 +484,7 @@ includeDirective top fields body = do
484484 Just patt -> drop 1 .
485485 dropWhile (not . (patt `T.isInfixOf`))
486486 Nothing -> id) $ contentLines'
487− let contents' = T.unlines contentLines'' <> "\n"
487+ let contents' = T.unlines contentLines''
488488 case lookup "code" fields of
489489 Just lang -> do
490490 let classes = maybe [] T.words (lookup "class" fields)
@@ -494,7 +494,7 @@ includeDirective top fields body = do
494494 Just _ -> return $ B.rawBlock "rst" contents'
495495 Nothing -> do
496496 setPosition $ newPos (T.unpack f) 1 1
497− setInput contents'
497+ setInput $ contents' <> "\n"
498498 bs <- optional blanklines >>
499499 (mconcat <$> many block)
500500 setInput oldInput