1 2 3 4 5 6 7 8 9
module Request where data Request = Request String String String getQuery (Request query _ _) = query getUrl (Request _ url _) = url getMethod (Request _ _ method) = method