gistfile1.hs

--
-- (env .> "first_name") = the post-ed field "first_name"
--
(.>) :: Env -> String -> String
(.>) env k =
    case requestMethod env of
      POST ->
          do
            let ( posts, _ ) = parsePost ctype clen $ hackInput env
            fromMaybe "" $ lookup k posts
          where 
            ctype = fromMaybe "" $ lookup "Content-Type" $ http env
            clen = fromMaybe "" $ lookup "Content-Length" $ http env
      _ ->
          ""