fix: formatting

Author: isovector

app/Foliage/CmdBuild.hs

@@ -13,10 +13,10 @@ import Data.Bifunctor (second)
 import Data.ByteString.Char8 qualified as BS
 import Data.ByteString.Lazy.Char8 qualified as BL
 import Data.Function (on)
-import Data.List (sortOn, groupBy, sortBy)
+import Data.List (groupBy, sortBy, sortOn)
 import Data.List.NonEmpty qualified as NE
-import Data.Maybe (fromMaybe, mapMaybe, listToMaybe)
-import Data.Ord (comparing, Down(..))
+import Data.Maybe (fromMaybe, listToMaybe, mapMaybe)
+import Data.Ord (Down (..), comparing)
 import Data.Time.Clock.POSIX (posixSecondsToUTCTime)
 import Data.Traversable (for)
 import Development.Shake
@@ -106,11 +106,11 @@ buildAction
 
     void $ forP packageVersions $ makePackageVersionPage prettyShow outputDir
 
-    let latestPackageVersions
-          = mapMaybe listToMaybe
-          . groupBy (on (==) $ pkgName . pkgId)
-          . sortBy (comparing (pkgName . pkgId) <> comparing (Down . pkgVersion . pkgId))
-          $ packageVersions
+    let latestPackageVersions =
+          mapMaybe listToMaybe
+            . groupBy (on (==) $ pkgName . pkgId)
+            . sortBy (comparing (pkgName . pkgId) <> comparing (Down . pkgVersion . pkgId))
+            $ packageVersions
     void $ forP latestPackageVersions $ makePackageVersionPage (prettyShow . packageName) outputDir
 
     when doWritePackageMeta $