Change to record syntax for value construction

mbj · Dec 11, 2024 · 4d26ac9 · 4d26ac9
1 parent 64e7273
commit 4d26ac9
Showing 1 changed file with 13 additions and 14 deletions.
diff --git a/generator/src/Stratosphere/Generator/Declaration.hs b/generator/src/Stratosphere/Generator/Declaration.hs
@@ -332,20 +332,19 @@ genRecordBoot Record{..} = runGen $ do
           (GHC.HsQTvs GHC.NoExtField [])
           GHC.Prefix
       $ GHC.HsDataDefn
-          GHC.NoExtField
-          GHC.DataType
-          Nothing
-          Nothing
-          ( Just
-          $ mkLocated
-            (GHC.HsTyVar
-              GHC.EpAnnNotUsed
-              GHC.NotPromoted
-              (mkLocated . GHC.mkRdrUnqual $ GHC.mkDataOcc "Prelude.Type")
-            )
-          )
-          []
-          []
+          { dd_ext = GHC.NoExtField
+          , dd_ND = GHC.DataType
+          , dd_ctxt = Nothing
+          , dd_cType = Nothing
+          , dd_kindSig = Just $ mkLocated
+              (GHC.HsTyVar
+                GHC.EpAnnNotUsed
+                GHC.NotPromoted
+                (mkLocated . GHC.mkRdrUnqual $ GHC.mkDataOcc "Prelude.Type")
+              )
+          , dd_cons = []
+          , dd_derivs = []
+          }
 
     genResourcePropertiesInstance :: Generator GHC.HsDecl'
     genResourcePropertiesInstance