style and lint

Kleidukos · Jul 21, 2024 · 2d0de92 · 2d0de92
1 parent 149f795
commit 2d0de92
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 12 deletions.
diff --git a/compat/9.10.1/GHC/Compat.hs b/compat/9.10.1/GHC/Compat.hs
@@ -1,16 +1,16 @@
 -- GHC 9.10.1 Compatibility
 module GHC.Compat where
 
-import GHC (modInfoExports, ModuleInfo)
-import GHC.Iface.Syntax (ShowForAllFlag (..), ShowSub (..), ShowHowMuch (..), AltPpr (..))
+import GHC (ModuleInfo, modInfoExports)
+import GHC.Iface.Syntax (AltPpr (..), ShowForAllFlag (..), ShowHowMuch (..), ShowSub (..))
 import GHC.Types.Name (OccName, nameOccName)
 
 import DumpDecls.IgnoredDeclarations
 
 mkShowSub :: ModuleInfo -> ShowSub
 mkShowSub mod_info =
   let ss_how_much = ShowSome (Just (showOcc mod_info)) (AltPpr Nothing)
-  in ShowSub
-  { ss_how_much = ss_how_much
-  , ss_forall = ShowForAllMust
-  }
+   in ShowSub
+        { ss_how_much = ss_how_much
+        , ss_forall = ShowForAllMust
+        }
diff --git a/compat/9.6.6/GHC/Compat.hs b/compat/9.6.6/GHC/Compat.hs
@@ -2,13 +2,12 @@
 module GHC.Compat where
 
 import GHC (ModuleInfo)
-import GHC.Iface.Syntax (ShowForAllFlag (..), ShowSub (..), ShowHowMuch (..), AltPpr (..))
-
+import GHC.Iface.Syntax (AltPpr (..), ShowForAllFlag (..), ShowHowMuch (..), ShowSub (..))
 
 mkShowSub :: ModuleInfo -> ShowSub
 mkShowSub _mod_info =
   let ss_how_much = ShowSome [] (AltPpr Nothing)
-  in ShowSub
-  { ss_how_much = ss_how_much
-  , ss_forall = ShowForAllMust
-  }
+   in ShowSub
+        { ss_how_much = ss_how_much
+        , ss_forall = ShowForAllMust
+        }