Skip to content
Browse files

Delete some old TODO/FIXME cruft

  • Loading branch information...
1 parent f8e624c commit 33208d198a5fb66265448b4a789d1bae81286b61 @gregorycollins gregorycollins committed May 19, 2010
Showing with 1 addition and 6 deletions.
  1. +0 −2 src/Snap/Internal/Http/Parser.hs
  2. +1 −4 src/Snap/Internal/Http/Server.hs
View
2 src/Snap/Internal/Http/Parser.hs
@@ -406,8 +406,6 @@ parseCookie = parseToCompletion pCookie
------------------------------------------------------------------------------
-- MULTIPART/FORMDATA
------------------------------------------------------------------------------
--- TODO
-
parseUrlEncoded :: ByteString -> Map ByteString [ByteString]
parseUrlEncoded s = foldl' (\m (k,v) -> Map.insertWith' (++) k [v] m)
View
5 src/Snap/Internal/Http/Server.hs
@@ -34,7 +34,6 @@ import Snap.Internal.Http.Parser
import Snap.Iteratee hiding (foldl', head, take)
import qualified Snap.Iteratee as I
--- TODO guard this by an ifdef later
#ifdef LIBEV
import qualified Snap.Internal.Http.Server.LibevBackend as Backend
import Snap.Internal.Http.Server.LibevBackend (debug)
@@ -90,7 +89,6 @@ runServerMonad lh lip lp rip rp la le m = evalStateT m st
------------------------------------------------------------------------------
--- FIXME: exception handling
httpServe :: ByteString -- ^ bind address, or \"*\" for all
-> Int -- ^ port to bind to
-> ByteString -- ^ local hostname (server name)
@@ -217,7 +215,7 @@ logA' :: Logger -> Request -> Response -> IO ()
logA' logger req rsp = do
let hdrs = rqHeaders req
let host = rqRemoteAddr req
- let user = Nothing -- FIXME we don't do authentication yet
+ let user = Nothing -- TODO we don't do authentication yet
let (v, v') = rqVersion req
let ver = S.concat [ "HTTP/", bshow v, ".", bshow v' ]
let method = toBS $ Prelude.show (rqMethod req)
@@ -285,7 +283,6 @@ httpSession writeEnd onSendFile handler = do
case mreq of
(Just req) -> do
- -- FIXME: catch exception
(req',rspOrig) <- lift $ handler req
let rspTmp = rspOrig { rspHttpVersion = rqVersion req }
checkConnectionClose (rspHttpVersion rspTmp) (rspHeaders rspTmp)

0 comments on commit 33208d1

Please sign in to comment.
Something went wrong with that request. Please try again.