1 2 3 4 5 6 7 8
module Module where data Module data ModuleName data UnitId moduleName :: Module -> ModuleName moduleUnitId :: Module -> UnitId unitIdString :: UnitId -> String