haskell draft