staticDir

[Lucu.git] / Network / HTTP / Lucu / MIMEType / Guess.hs

diff --git a/Network/HTTP/Lucu/MIMEType/Guess.hs b/Network/HTTP/Lucu/MIMEType/Guess.hs
index 7fe58206b5dcb86cd15538c4906f2f86ed0a09d8..12f19e0684748eb7bccfa229e670fb80f9b91e57 100644 (file)
--- 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