fix build with GHC 9.10.1

bravit · bravit · commit 7d09f4c3704b · 2024-12-01T13:29:33.000+02:00
diff --git a/ch12/generics/view-generic.hs b/ch12/generics/view-generic.hs
@@ -13,7 +13,7 @@ data Request = Request String Int
 okVal = from Ok
 
 errVal :: D1
-       ('MetaData "Status" "Main" "main" 'False)
+       ('MetaData "Status" "Main" "hid-examples-0.5-inplace-view-generic" 'False)
        (C1 ('MetaCons "Ok" 'PrefixI 'False) U1
         :+: C1 ('MetaCons "Err" 'PrefixI 'False) U1)
        x

Original file line number	Diff line number	Diff line change
`@@ -13,7 +13,7 @@ data Request = Request String Int`
`13`	`13`	`okVal = from Ok`
`14`	`14`
`15`	`15`	`errVal :: D1`
`16`		`- ('MetaData "Status" "Main" "main" 'False)`
	`16`	`+ ('MetaData "Status" "Main" "hid-examples-0.5-inplace-view-generic" 'False)`
`17`	`17`	`(C1 ('MetaCons "Ok" 'PrefixI 'False) U1`
`18`	`18`	`:+: C1 ('MetaCons "Err" 'PrefixI 'False) U1)`
`19`	`19`	`x`