ath -- ^ Path to file 
                  → Route ()
detectContentType f = contentType ∘ getMime ∘ B.pack $ takeExtension f 
{-# INLINE detectContentType #-}

-- | Create a response from a file
file ∷ FilePath -- ^ Path to file
     → Route Response
file f = do
        fh ← liftIO $ openBinaryFile f 
detectContentType ∷ FilePath -- ^ Path to file 
                  → Route ()
detectContentType f = contentType ∘ getMime ∘ B.pack $ takeExtension f
detectContentType f = contentType ∘ getMime ∘ B.pack $ takeExtension f