remove the 'first' declaration
commitb831873f993b254d93f05b3144632bfde508b73f
authorRaphael Javaux <raphaeljavaux@gmail.com>
dateThu 17 Jan 2013, 13:51 (14 years ago)
parent6b739a0
mime-types/Network/Mime.hs+1−2
@@ -54,9 +54,8 @@ defaultMimeLookup = mimeByExt defaultMimeMap defaultMimeType
5454-- > pieceExtensions "foo.tar.gz" == ["tar.gz", "gz"]
5555fileNameExtensions :: FileName -> [Extension]
5656fileNameExtensions =
57− go . first
57+ go . T.toLower . dropToExt
5858 where
59− first = T.toLower . dropToExt
6059 dropToExt = T.drop 1 . T.dropWhile (/= '.')
6160
6261 go e