module Foo where data Foo (a :: *) = Foo a