]> git.wincent.com - docvim.git/commitdiff
Apply suggested lint fixes
authorGreg Hurrell <greg@hurrell.net>
Tue, 4 Dec 2018 14:11:28 +0000 (15:11 +0100)
committerGreg Hurrell <greg@hurrell.net>
Tue, 4 Dec 2018 14:11:35 +0000 (15:11 +0100)
lib/Text/Docvim/Printer/Markdown.hs

index 6d0a518fe232a9b169deba45dee91b719b3046e1..5443c7cf469294e753e0caee00eada4deb1ed8e7 100644 (file)
@@ -70,12 +70,12 @@ node n = case n of
 -- | Split a string into a list of strings, each containing a single character.
 split :: String -> [String]
 split [] = []
-split (s:xs) = ([s]:rest) where rest = split xs
+split (s:xs) = [s]:rest where rest = split xs
 
 -- | Sanitize a string for use inside markdown, escaping special HTML
 -- characters.
 sanitize :: String -> String
-sanitize s = concat $ map repl (split s)
+sanitize s = concatMap repl (split s)
   where
     repl "<" = "&lt;"
     repl ">" = "&gt;"