Size fh
        okay (fs, fh)
{-# INLINE file #-}

-- | Serve a file for the given path
serveFile ∷ FilePath -- ^ Path to file
          → B.ByteString -- ^ Routing path
          → Route Response
serveFile f p = ful
file ∷ FilePath -- ^ Path to file
     → Route Response
file f = do
        fh ← liftIO $ openBinaryFile f ReadMode
        fs ← liftIO $ hFileSize fh
        okay (fs, fh)

file f = do
        fh ← liftIO $ openBinaryFile f ReadMode
        fs ← liftIO $ hFileSize fh
        okay (fs, fh)
