wai-middleware-content-type 0.0.2 → 0.0.3

raw patch · 2 files changed

+18/−5 lines, 2 files

Files

• src/Network/Wai/Middleware/ContentType/Types.hs +17/−4
• wai-middleware-content-type.cabal +1/−1

@@ -1,11 +1,12 @@ {-# LANGUAGE     DeriveFunctor+  , FlexibleContexts   , DeriveTraversable-  , GeneralizedNewtypeDeriving   , OverloadedStrings-  , StandaloneDeriving   , FlexibleInstances+  , StandaloneDeriving   , MultiParamTypeClasses+  , GeneralizedNewtypeDeriving   #-}  module Network.Wai.Middleware.ContentType.Types@@ -15,6 +16,7 @@   , FileExts (..)   , FileExtListenerT (..)   , execFileExtListenerT+  , mapFileExts   , tell   ) where @@ -23,6 +25,7 @@ import           Data.Map import           Data.Maybe (fromMaybe) import           Data.Monoid+import           Data.Foldable import           Control.Monad.Trans import           Control.Monad.State @@ -44,7 +47,17 @@ getFileExt :: Request -> FileExt getFileExt req = fromMaybe Html $ case pathInfo req of   [] -> Just Html-  xs -> toExt $ T.dropWhile (/= '.') $ last xs+  xs -> toExt $ T.pack $ getLastExt $ T.unpack $ last xs+  where+    getLastExt ts = evalState (foldrM go [] ts) False+    go c soFar = do+      sawPeriod <- get+      if sawPeriod+      then return soFar+      else if c == '.'+           then do put True+                   return ('.' : soFar)+           else return (c : soFar)  toExt :: T.Text -> Maybe FileExt toExt x | x `elem` htmls       = Just Html@@ -52,7 +65,7 @@         | x `elem` javascripts = Just JavaScript         | x `elem` jsons       = Just Json         | x `elem` texts       = Just Text-        | otherwise            = Nothing+        | otherwise       = Nothing   where     htmls       = [".htm", ".html"]     csss        = [".css"]

@@ -1,5 +1,5 @@ Name:                   wai-middleware-content-type-Version:                0.0.2+Version:                0.0.3 Author:                 Athan Clark <athan.clark@gmail.com> Maintainer:             Athan Clark <athan.clark@gmail.com> License:                BSD3