Always render imports as the first field of a section (fixes #486)

sol · Mar 28, 2022 · d9cbc10 · d9cbc10
1 parent 68ec2bd
commit d9cbc10
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/Hpack/Render.hs b/src/Hpack/Render.hs
@@ -44,7 +44,8 @@ import qualified Data.Map.Lazy as Map
 import           Hpack.Util
 import           Hpack.Config
 import           Hpack.Render.Hints
-import           Hpack.Render.Dsl
+import           Hpack.Render.Dsl hiding (sortFieldsBy)
+import qualified Hpack.Render.Dsl as Dsl
 
 renderPackage :: [String] -> Package -> String
 renderPackage oldCabalFile = renderPackageWith settings alignment formattingHintsFieldOrder formattingHintsSectionsFieldOrder
@@ -415,3 +416,6 @@ renderPaths = LineSeparatedList . map renderPath
 
     needsQuoting :: FilePath -> Bool
     needsQuoting = any (\x -> isSpace x || x == ',')
+
+sortFieldsBy :: [String] -> [Element] -> [Element]
+sortFieldsBy existingFieldOrder = Dsl.sortFieldsBy ("import" : existingFieldOrder)