diff --git a/src/Network/Wai/Middleware/ContentType.hs b/src/Network/Wai/Middleware/ContentType.hs
--- a/src/Network/Wai/Middleware/ContentType.hs
+++ b/src/Network/Wai/Middleware/ContentType.hs
@@ -98,8 +98,10 @@
   mMiddleware <- lookupResponse mAcceptBS mFe contentRoutes
   fromMaybe (app req respond) $ do
     mid <- mMiddleware
-    return $ mid app req respond
+    pure (mid app req respond)
 
+{-# INLINEABLE fileExtsToMiddleware #-}
+
 -- | Given an HTTP @Accept@ header and a content type to base lookups off of, and
 -- a map of responses, find a response.
 lookupResponse :: ( MonadIO m
@@ -120,6 +122,7 @@
         Nothing -> xs
         Just fe -> fe <$ guard (fe `elem` xs)
 
+{-# INLINEABLE lookupResponse #-}
 
 -- | Takes an @Accept@ header and returns the other
 -- file types handleable, in order of prescedence.
@@ -145,7 +148,7 @@
     wildcard = fromMaybe [] $ mapAccept [ ("*/*" :: BS.ByteString, allFileExts)
                                         ] accept
 
-
+{-# INLINEABLE possibleFileExts #-}
 
 -- | Use this combinator as the last one, as a "catch-all":
 --
@@ -155,4 +158,4 @@
 invalidEncoding :: MonadIO m => MiddlewareT m -> FileExtListenerT (MiddlewareT m) m ()
 invalidEncoding mid = mapM_ (`middleware` mid) allFileExts
 
-
+{-# INLINEABLE invalidEncoding #-}
diff --git a/src/Network/Wai/Middleware/ContentType/Types.hs b/src/Network/Wai/Middleware/ContentType/Types.hs
--- a/src/Network/Wai/Middleware/ContentType/Types.hs
+++ b/src/Network/Wai/Middleware/ContentType/Types.hs
@@ -78,6 +78,7 @@
 allFileExts :: [FileExt]
 allFileExts = [Html,Text,Json,JavaScript,Css,Markdown]
 
+{-# INLINEABLE allFileExts #-}
 
 -- | Gets the known file extension from a Request's 'Network.Wai.pathInfo'.
 getFileExt :: [T.Text] -> Maybe FileExt
@@ -85,6 +86,8 @@
   [] -> Nothing
   xs -> toExt . snd . T.breakOn "." $ last xs
 
+{-# INLINEABLE getFileExt #-}
+
 -- | matches a file extension (__including__ it's prefix dot - @.html@ for example)
 --   to a known one.
 toExt :: T.Text -> Maybe FileExt
@@ -103,6 +106,8 @@
     texts       = [".txt"]
     markdowns   = [".md", ".markdown"]
 
+{-# INLINEABLE toExt #-}
+
 type FileExtMap a = HashMap FileExt a
 
 -- | The monad for our DSL - when using the combinators, our result will be this
@@ -136,3 +141,5 @@
 
 execFileExtListenerT :: Monad m => FileExtListenerT r m a -> m (FileExtMap r)
 execFileExtListenerT xs = execStateT (runFileExtListenerT xs) mempty
+
+{-# INLINEABLE execFileExtListenerT #-}
diff --git a/wai-middleware-content-type.cabal b/wai-middleware-content-type.cabal
--- a/wai-middleware-content-type.cabal
+++ b/wai-middleware-content-type.cabal
@@ -1,5 +1,5 @@
 Name:                   wai-middleware-content-type
-Version:                0.1.1
+Version:                0.1.1.1
 Author:                 Athan Clark <athan.clark@gmail.com>
 Maintainer:             Athan Clark <athan.clark@gmail.com>
 License:                BSD3