Commits

Luke Plant committed f2f39c2

Debugging help

Comments (0)

Files changed (1)

src/Web/Request.hs

 data Request = Request { method :: String
                        , path :: String
                        , environment :: Map.Map String String
-                       }
+                       } deriving (Show, Read, Eq, Ord)
 
 mkRequest :: [(String, String)] -> String -> Request
 mkRequest env stdin = let envMap = Map.fromList env