Parse.hs

data Foo where
    Bar :: Foo
    Baz :: Foo
    deriving Show
    
-- seems to be parsed as:

data Foo where {
    Bar :: Foo;
    Baz :: foo}
    deriving Show

-- why not:

data Foo where {
    Bar :: Foo;
    Baz :: foo;
    deriving Show}