eqPhase :: Phase -> Phase -> Bool
-- Equality of constructors, ignoring the HscSource field
-- NB: the HscSource field can be 'bot'; see anyHsc above
eqPhase (Unlit _)   (Unlit _)  = True
eqPhase :: Phase -> Phase -> Bool
eqPhase (Unlit _)   (Unlit _)  = True
eqPhase (Unlit _)   (Unlit _)  = True