Align the EPState initialisation with the definition order

alanz · Dec 16, 2024 · a9d9647 · a9d9647
1 parent a345899
commit a9d9647
Showing 1 changed file with 10 additions and 7 deletions.
diff --git a/src/Language/Haskell/GHC/ExactPrint/ExactPrint.hs b/src/Language/Haskell/GHC/ExactPrint/ExactPrint.hs
@@ -111,16 +111,19 @@ runEP epReader action = do
 
 defaultEPState :: EPState
 defaultEPState = EPState
-             { epPos      = (1,1)
-             , dLHS       = 0
-             , pMarkLayout = False
-             , pLHS = 0
-             , dMarkLayout = False
-             , dPriorEndPosition = (1,1)
-             , uAnchorSpan = badRealSrcSpan
+             { uAnchorSpan = badRealSrcSpan
              , uExtraDP = Nothing
              , uExtraDPReturn = Nothing
              , pAcceptSpan = False
+
+             , epPos       = (1,1)
+             , pMarkLayout = False
+             , pLHS = 0
+
+             , dPriorEndPosition = (1,1)
+             , dMarkLayout = False
+             , dLHS        = 0
+
              , epComments = []
              , epCommentsApplied = []
              , epEof = Nothing