app/Web/Http.hs


1
2
3
4
5
6
7
8
9
10
11
12

module Web.Http where

import Data.Text (Text)

data Header = Header Text Text
  deriving Show

data Method = GET | PUT | POST
  deriving (Show, Eq)

data QueryPair = QueryPair Text Text
  deriving Show