data Color = Red | Orange | Yellow | Green | Blue | Purple

data Foo = Foo
  { a :: Int
  , b :: Double
  }
type Foo2 = Foo

newtype Bar = Bar Int