module B where

foo = ()

b = foo

data B = B deriving Show