# LANGUAGE MultiParamTypeClasses #

class Foo a b where foo :: a -> b

-- | Something.
class Bar a b c d where
  bar
    :: a
    -> b
    -> c
    -> d

class -- Before name
  Baz where
  baz :: Int

 | Something.
 Before name
# LANGUAGE MultiParamTypeClasses #

class Foo a b where foo :: a -> b

class Bar a b c d where
  bar
    :: a
    -> b
    -> c
    -> d

  Baz where
  baz :: Int
