@@ -1,6 +1,5 @@
11module Obelisk.Route.TH (deriveRouteComponent) where
22
3−import Data.Constraint.Extras.TH
43import Data.GADT.Show.TH
54import Data.GADT.Compare.TH
65import Data.Universe.TH
@@ -12,6 +11,8 @@ deriveRouteComponent x = concat <$> traverse ($ x)
1211 [ deriveGShow
1312 , deriveGEq
1413 , deriveGCompare
14+ , deriveShowTagIdentity
15+ , deriveEqTagIdentity
16+ , deriveOrdTagIdentity
1517 , deriveSomeUniverse
16− , deriveArgDict
1718 ]