Permalink
Browse files

Add newline to end of input before parsing.

  • Loading branch information...
1 parent 66ccbb8 commit 2766620ed5a2154b4a7aed092f1da7ce67cf8b7e @jgm committed Apr 11, 2008
Showing with 1 addition and 1 deletion.
  1. +1 −1 Markdown.hs
View
@@ -22,7 +22,7 @@ main = do
c <- if null argv
then getContents
else mapM readFile argv >>= return . unlines
- let (blocks, remaining) = runPeg doc $ tabFilter tabStop c
+ let (blocks, remaining) = runPeg doc $ tabFilter tabStop (c ++ "\n")
if (not . null) remaining
then error $ "Parse failed at: " ++ take 35 remaining
else do

0 comments on commit 2766620

Please sign in to comment.