# gql2hs

## Usage

    λ gql2hs << EOF
    enum Bool {
      FALSE
      TRUE
    }

    scalar True
    scalar False

    union Boolean = True | False

    type Record {
      a: A
      b: B!
      c: [C!]!
      d(e: E): D
    }
    EOF
    data Bool = FALSE
              | TRUE
    type True = ()
    type False = ()
    data Boolean = Boolean__0 True
                 | Boolean__1 False
    data Record = Record{a :: A, b :: B, c :: C, d :: E -> D}