@@ -484,7 +484,7 @@ includeDirective top fields body = do
484 Just patt -> drop 1 .
484 Just patt -> drop 1 .
485 dropWhile (not . (patt `T.isInfixOf`))
485 dropWhile (not . (patt `T.isInfixOf`))
486 Nothing -> id) $ contentLines'
486 Nothing -> id) $ contentLines'
487− let contents' = T.unlines contentLines'' <> "\n"
487+ let contents' = T.unlines contentLines''
488 case lookup "code" fields of
488 case lookup "code" fields of
489 Just lang -> do
489 Just lang -> do
490 let classes = maybe [] T.words (lookup "class" fields)
490 let classes = maybe [] T.words (lookup "class" fields)
@@ -494,7 +494,7 @@ includeDirective top fields body = do
494 Just _ -> return $ B.rawBlock "rst" contents'
494 Just _ -> return $ B.rawBlock "rst" contents'
495 Nothing -> do
495 Nothing -> do
496 setPosition $ newPos (T.unpack f) 1 1
496 setPosition $ newPos (T.unpack f) 1 1
497− setInput contents'
497+ setInput $ contents' <> "\n"
498 bs <- optional blanklines >>
498 bs <- optional blanklines >>
499 (mconcat <$> many block)
499 (mconcat <$> many block)
500 setInput oldInput
500 setInput oldInput