@@ -345,6 +345,7 @@ customCodeBlock = try $ do
345lhsCodeBlock :: GenParser Char ParserState Block
345lhsCodeBlock :: GenParser Char ParserState Block
346lhsCodeBlock = try $ do
346lhsCodeBlock = try $ do
347 failUnlessLHS
347 failUnlessLHS
348+ optional codeBlockStart
348 pos <- getPosition
349 pos <- getPosition
349 when (sourceColumn pos /= 1) $ fail "Not in first column"
350 when (sourceColumn pos /= 1) $ fail "Not in first column"
350 lns <- many1 birdTrackLine
351 lns <- many1 birdTrackLine