git.iko.soy/typeable/wai
on master help sign in
warp executable compiles
78475b0Michael Snoyman
warp.hs+2−1
compare with master
unifiedsplit
@@ -8,6 +8,7 @@ import System.Environment (getArgs)
8import Data.Text (unpack)
8import Data.Text (unpack)
9import Data.Text.Encoding (decodeUtf8With)
9import Data.Text.Encoding (decodeUtf8With)
10import Data.Text.Encoding.Error (lenientDecode)
10import Data.Text.Encoding.Error (lenientDecode)
11+import Control.Monad.IO.Class (liftIO)
11
12
12main :: IO ()
13main :: IO ()
13main = do
14main = do
@@ -28,7 +29,7 @@ app prefix Request { requestMethod = m, pathInfo = p }
28 let file = join $ prefix pieces
29 let file = join $ prefix pieces
29 let ext = reverse $ takeWhile (/= '.') $ reverse file
30 let ext = reverse $ takeWhile (/= '.') $ reverse file
30 let ct = getCT ext
31 let ct = getCT ext
31− e <- doesFileExist file
32+ e <- liftIO $ doesFileExist file
32 -- FIXME check file size
33 -- FIXME check file size
33 if e
34 if e
34 then return $ ResponseFile status200 [("Content-Type", ct)] file
35 then return $ ResponseFile status200 [("Content-Type", ct)] file