From 7d09f4c3704ba248f94da5b6c7bd51e4b3654340 Mon Sep 17 00:00:00 2001
From: Vitaly Bragilevsky <vitaly.bragilevsky@jetbrains.com>
Date: Sun, 1 Dec 2024 13:29:33 +0200
Subject: [PATCH] fix build with GHC 9.10.1

---
 ch12/generics/view-generic.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ch12/generics/view-generic.hs b/ch12/generics/view-generic.hs
index d4fa161..6add88b 100644
--- 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