@@ -101,13 +101,11 @@ titleTransform blocks = (blocks, [])
102parseRST = do
102parseRST = do
103 state <- getState
103 state <- getState
105 -- first pass: get anonymous keys
104 -- first pass: get anonymous keys
106− keyBlocks <- manyTill (anonymousKey <|> (do{anyLine; return Null})) eof
105+ keyBlocks <- lookAhead $ manyTill (anonymousKey <|> (do{anyLine; return Null})) eof
107 let anonymousKeys = filter (/= Null) keyBlocks
106 let anonymousKeys = filter (/= Null) keyBlocks
108 -- run parser again to fill in anonymous links...
107 -- run parser again to fill in anonymous links...
109 setState (state { stateKeyBlocks = anonymousKeys })
108 setState (state { stateKeyBlocks = anonymousKeys })
111 blocks <- parseBlocks
109 blocks <- parseBlocks
112 let blocks' = filter isNotAnonKeyBlock blocks
110 let blocks' = filter isNotAnonKeyBlock blocks
113 let (blocks'', title) = if stateStandalone state
111 let (blocks'', title) = if stateStandalone state