]> git.wincent.com - docvim.git/commitdiff
Fix remaining lint about duplication
authorGreg Hurrell <greg@hurrell.net>
Fri, 10 Jun 2016 06:42:22 +0000 (23:42 -0700)
committerGreg Hurrell <greg@hurrell.net>
Fri, 10 Jun 2016 06:42:22 +0000 (23:42 -0700)
First lint-free status in months. Yay.

lib/Text/Docvim/Parse.hs

index ae1e493d0a8044eb885c2a41fa01ffcaa47311fa..722d40219ff3f7138f3e752d03bf29928031863a 100644 (file)
@@ -167,17 +167,8 @@ listItem =  lookAhead (char '-' >> notFollowedBy (char '-'))
          >> ListItem
          <$> body
   where
-    body = do
-      first  <- char '-' >> optional ws >> many1 (choice [phrasing, whitespace])
-      rest   <- many otherLine
-      -- Make every line end with whitespace.
-      let nodes = concatMap appendWhitespace (first:rest)
-      -- Collapse consecutive whitespace.
-      let compressed = compress nodes
-      -- Trim final whitespace.
-      return ( if last compressed == Whitespace
-               then init compressed
-               else compressed )
+    body = paragraphBody firstLine otherLine
+    firstLine = char '-' >> optional ws >> many1 (choice [phrasing, whitespace])
     otherLine =  try $ newline
               >> (commentStart <|> docBlockStart)
               -- TODO ^ DRY this up?