From 6889ef69d6ffad53a292555615df2c2b336f93db Mon Sep 17 00:00:00 2001 From: Simon Hengel Date: Fri, 8 Apr 2011 17:09:28 +0000 Subject: Add support for blank lines in the result of examples Result lines that only contain the string "" are treated as a blank line. --- src/Haddock/Parse.y | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) (limited to 'src/Haddock/Parse.y') diff --git a/src/Haddock/Parse.y b/src/Haddock/Parse.y index 4a0f8f99..e36e8416 100644 --- a/src/Haddock/Parse.y +++ b/src/Haddock/Parse.y @@ -129,14 +129,21 @@ makeExample prompt expression result = -- whitespace in expressions, so drop them result' where - -- drop trailing whitespace from the prompt, remember the prefix + -- 1. drop trailing whitespace from the prompt, remember the prefix (prefix, _) = span isSpace prompt - -- drop, if possible, the exact same sequence of whitespace characters - -- from each result line - result' = map (tryStripPrefix prefix) result + + -- 2. drop, if possible, the exact same sequence of whitespace + -- characters from each result line + -- + -- 3. interpret lines that only contain the string "" as an + -- empty line + result' = map (substituteBlankLine . tryStripPrefix prefix) result where tryStripPrefix xs ys = fromMaybe ys $ stripPrefix xs ys + substituteBlankLine "" = "" + substituteBlankLine line = line + -- | Remove all leading and trailing whitespace strip :: String -> String strip = dropWhile isSpace . reverse . dropWhile isSpace . reverse -- cgit v1.2.3