From 40513d172a1cf924d8734ff3f914bb95ee2ca377 Mon Sep 17 00:00:00 2001 From: Benjamin McRae Date: Wed, 13 Sep 2023 13:03:46 +0100 Subject: [PATCH] remove read from the list of derived instances, partially closing #1773, #1203 --- yesod-core/src/Yesod/Routes/TH/RenderRoute.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/yesod-core/src/Yesod/Routes/TH/RenderRoute.hs b/yesod-core/src/Yesod/Routes/TH/RenderRoute.hs index 6d9e4de13..cabe47c59 100644 --- a/yesod-core/src/Yesod/Routes/TH/RenderRoute.hs +++ b/yesod-core/src/Yesod/Routes/TH/RenderRoute.hs @@ -41,9 +41,9 @@ mkRouteCons rttypes = mkRouteCon (ResourceParent name _check pieces children) = do (cons, decs) <- mkRouteCons children #if MIN_VERSION_template_haskell(2,12,0) - dec <- DataD [] (mkName name) [] Nothing cons <$> fmap (pure . DerivClause Nothing) (mapM conT [''Show, ''Read, ''Eq]) + dec <- DataD [] (mkName name) [] Nothing cons <$> fmap (pure . DerivClause Nothing) (mapM conT [''Show, ''Eq]) #else - dec <- DataD [] (mkName name) [] Nothing cons <$> mapM conT [''Show, ''Read, ''Eq] + dec <- DataD [] (mkName name) [] Nothing cons <$> mapM conT [''Show, ''Eq] #endif return ([con], dec : decs) where @@ -175,7 +175,7 @@ mkRenderRouteInstance cxt typ ress = do clazzes' else [] - clazzes' = [''Show, ''Eq, ''Read] + clazzes' = [''Show, ''Eq] notStrict :: Bang notStrict = Bang NoSourceUnpackedness NoSourceStrictness