f

Author: GuillaumedeVolpiano

plugins/hls-gadt-plugin/src/Ide/Plugin/GHC.hs

@@ -19,7 +19,7 @@ import           GHC.Parser.Annotation                   (DeltaPos (..),
                                                           EpAnn (..),
                                                           EpAnnComments (EpaComments))
 #if MIN_VERSION_ghc(9,11,0)
-import           GHC.Parser.Annotation                   (EpToken(..))
+import           GHC.Parser.Annotation                   (EpToken (..))
 #endif
 import           Ide.PluginUtils                         (subRange)
 import           Language.Haskell.GHC.ExactPrint.Parsers (parseDecl)
@@ -49,9 +49,9 @@ import           Language.Haskell.GHC.ExactPrint.Utils   (showAst)
 #endif
 
 #if MIN_VERSION_ghc(9,11,0)
-import GHC.Types.SrcLoc (UnhelpfulSpanReason (..))
+import           GHC.Types.SrcLoc                        (UnhelpfulSpanReason (..))
 #else
-import GHC.Parser.Annotation (AddEpAnn (..))
+import           GHC.Parser.Annotation                   (AddEpAnn (..))
 #endif
 
 type GP = GhcPass Parsed
@@ -220,7 +220,7 @@ prettyGADTDecl df decl =
         adjustDataDecl DataDecl{..} = DataDecl
             { tcdDExt = adjustWhere tcdDExt
             , tcdDataDefn = tcdDataDefn
-                { 
+                {
 #if MIN_VERSION_ghc(9,11,0)
                 dd_ext = adjustDefnWhere (dd_ext tcdDataDefn),
 #endif
@@ -250,7 +250,7 @@ prettyGADTDecl df decl =
         -- Adjust where annotation to the same line of the type constructor
 #if MIN_VERSION_ghc(9,11,0)
         -- tcdDext is just a placeholder in ghc-9.12
-        adjustWhere tcdDExt = tcdDExt
+        adjustWhere = id
 #else
         adjustWhere tcdDExt = tcdDExt <&>
 #if !MIN_VERSION_ghc(9,9,0)
@@ -269,7 +269,7 @@ prettyGADTDecl df decl =
           | otherwise = annDataDefn {andd_where = andd_where'}
           where
             (EpTok (EpaSpan aw)) = andd_where annDataDefn
-            andd_where' = EpTok (EpaDelta aw (SameLine 1) []) 
+            andd_where' = EpTok (EpaDelta aw (SameLine 1) [])
 #endif
         -- Remove the first extra line if exist
         removeExtraEmptyLine s = case stripInfix "\n\n" s of