From 281e8a208d155ad7d627ef1415457013ea889cfb Mon Sep 17 00:00:00 2001 From: Evan Czaplicki Date: Mon, 9 Sep 2013 15:58:43 -0700 Subject: [PATCH] Trim trailing whitespace --- compiler/Docs.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler/Docs.hs b/compiler/Docs.hs index 2345ea2..c7b3ce2 100644 --- a/compiler/Docs.hs +++ b/compiler/Docs.hs @@ -65,7 +65,8 @@ docComment :: IParser String docComment = do try (string "{-|") contents <- closeComment - return $ dropWhile (==' ') (init (init contents)) + let reversed = dropWhile (`elem` " \n\r") . drop 2 $ reverse contents + return $ dropWhile (==' ') (reverse reversed) moduleDocs = do (names,exports) <- anyThen moduleDef