unit q where
    module H where
        data T = T { x :: Bool }
unit r where
    signature H where
        data T
unit p where
    dependency q
    dependency r[H=q:H]
    module M where
        import H
        f = T True