remove read from the list of derived instances, partially closing yes…

…odweb#1773, yesodweb#1203
Benjamin-McRae-Tracsis · Sep 13, 2023 · 40513d1 · 40513d1
1 parent 0d10965
commit 40513d1
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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