X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FMIMEType%2FGuess.hs;h=12f19e0684748eb7bccfa229e670fb80f9b91e57;hb=854f6d1709d468f7e1bf0db2dcd2d30de6bd5f5e;hp=7fe58206b5dcb86cd15538c4906f2f86ed0a09d8;hpb=a44a96d95b5fcbaf24a21c0336046ce0c3bab614;p=Lucu.git

diff --git a/Network/HTTP/Lucu/MIMEType/Guess.hs b/Network/HTTP/Lucu/MIMEType/Guess.hs
index 7fe5820..12f19e0 100644
--- a/Network/HTTP/Lucu/MIMEType/Guess.hs
+++ b/Network/HTTP/Lucu/MIMEType/Guess.hs
@@ -25,7 +25,7 @@ type ExtMap = Map String MIMEType
 
 guessTypeByFileName :: ExtMap -> FilePath -> Maybe MIMEType
 guessTypeByFileName extMap fpath
-    = let ext = head $ reverse $ splitBy (== '.') fpath
+    = let ext = last $ splitBy (== '.') fpath
       in
         M.lookup ext extMap >>= return