Cosmetics

bladyjoker · bladyjoker · commit 7f561c95e6ad · 2023-03-01T21:18:28.000+01:00
diff --git a/lambda-buffers-codegen/src/LambdaBuffers/Codegen/Haskell/Config.hs b/lambda-buffers-codegen/src/LambdaBuffers/Codegen/Haskell/Config.hs
@@ -10,8 +10,8 @@ type QTyName = (PC.InfoLess PC.ModuleName, PC.InfoLess PC.TyName)
 type QClassName = (PC.InfoLess PC.ModuleName, PC.InfoLess PC.ClassName)
 
 data Config = MkConfig
-  { _opaques :: Map QTyName (H.CabalPackageName, H.ModuleName, H.TyName)
-  , _classes :: Map QClassName (H.CabalPackageName, H.ModuleName, H.ClassName, [H.FunctionName])
+  { _opaques :: Map QTyName H.QTyName
+  , _classes :: Map QClassName (H.QClassName, [H.FunctionName])
   }
   deriving stock (Eq, Ord, Show)
 

Original file line number	Diff line number	Diff line change
`@@ -10,8 +10,8 @@ type QTyName = (PC.InfoLess PC.ModuleName, PC.InfoLess PC.TyName)`
`10`	`10`	`type QClassName = (PC.InfoLess PC.ModuleName, PC.InfoLess PC.ClassName)`
`11`	`11`
`12`	`12`	`data Config = MkConfig`
`13`		`- { _opaques :: Map QTyName (H.CabalPackageName, H.ModuleName, H.TyName)`
`14`		`- , _classes :: Map QClassName (H.CabalPackageName, H.ModuleName, H.ClassName, [H.FunctionName])`
	`13`	`+ { _opaques :: Map QTyName H.QTyName`
	`14`	`+ , _classes :: Map QClassName (H.QClassName, [H.FunctionName])`
`15`	`15`	`}`
`16`	`16`	`deriving stock (Eq, Ord, Show)`
`17`	`17`