Sort import lists

sheaf · Apr 22, 2018 · 2e9ba06 · 2e9ba06
1 parent 6b9bf85
commit 2e9ba06
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/generate/src/Write/Module.hs b/generate/src/Write/Module.hs
@@ -136,10 +136,10 @@ isConstructor = \case
 
 moduleImports :: Module -> [Doc ()]
 moduleImports Module {..} =
-  let unqualifiedImportMap = Map.fromListWith
+  let unqualifiedImportMap = sort <$> Map.fromListWith
         union
         ((iModule &&& iImports) <$> [i | i@Import{} <- weImports =<< mWriteElements])
-      qualifiedImportMap = Map.fromListWith
+      qualifiedImportMap = sort <$> Map.fromListWith
         union
         ((iModule &&& iImports) <$> [i | i@QualifiedImport{} <- weImports =<< mWriteElements])
       makeImport :: Doc () -> (Text, [Text]) -> Doc ()
@@ -178,7 +178,7 @@ moduleInternalImports
   -> [Doc ()]
 moduleInternalImports nameModule Module {..} =
   let deps = simplifyDependencies (weDepends =<< mWriteElements)
-      depends = Map.fromListWith
+      depends = sort <$> Map.fromListWith
         (<>)
         [ ((m, g), [e])
         | d           <- deps