Modern type signature style in Module
authorBartosz Nitka <niteria@gmail.com>
Fri, 19 May 2017 14:54:06 +0000 (07:54 -0700)
committerBartosz Nitka <niteria@gmail.com>
Fri, 19 May 2017 14:54:06 +0000 (07:54 -0700)
compiler/basicTypes/Module.hs

index e7f8a8d..4a3212f 100644 (file)
@@ -1249,17 +1249,20 @@ isEmptyModuleEnv (ModuleEnv e) = Map.null e
 -- | A set of 'Module's
 type ModuleSet = Set NDModule
 
-mkModuleSet     :: [Module] -> ModuleSet
-extendModuleSet :: ModuleSet -> Module -> ModuleSet
-emptyModuleSet  :: ModuleSet
-moduleSetElts   :: ModuleSet -> [Module]
-elemModuleSet   :: Module -> ModuleSet -> Bool
+mkModuleSet :: [Module] -> ModuleSet
+mkModuleSet = Set.fromList . coerce
 
-emptyModuleSet    = Set.empty
-mkModuleSet       = Set.fromList . coerce
+extendModuleSet :: ModuleSet -> Module -> ModuleSet
 extendModuleSet s m = Set.insert (NDModule m) s
-moduleSetElts     = sort . coerce . Set.toList
-elemModuleSet     = Set.member . coerce
+
+emptyModuleSet :: ModuleSet
+emptyModuleSet = Set.empty
+
+moduleSetElts :: ModuleSet -> [Module]
+moduleSetElts = sort . coerce . Set.toList
+
+elemModuleSet :: Module -> ModuleSet -> Bool
+elemModuleSet = Set.member . coerce
 
 {-
 A ModuleName has a Unique, so we can build mappings of these using