Apply suggested lint fixes

[docvim.git] / lib / Text / Docvim / Printer / Markdown.hs

diff --git a/lib/Text/Docvim/Printer/Markdown.hs b/lib/Text/Docvim/Printer/Markdown.hs
index 6d0a518fe232a9b169deba45dee91b719b3046e1..5443c7cf469294e753e0caee00eada4deb1ed8e7 100644 (file)
--- a/lib/Text/Docvim/Printer/Markdown.hs
+++ b/lib/Text/Docvim/Printer/Markdown.hs
@@ -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;"