From 2ba64b1e081699bb55403912cb3ca8df67b5f66c Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 23 Sep 2019 17:40:37 -0400 Subject: [PATCH] :fire: the ToTagInstance for lists. --- semantic-tags/src/Tags/Taggable/Precise.hs | 4 ---- 1 file changed, 4 deletions(-) diff --git a/semantic-tags/src/Tags/Taggable/Precise.hs b/semantic-tags/src/Tags/Taggable/Precise.hs index 648702161..b16a114a2 100644 --- a/semantic-tags/src/Tags/Taggable/Precise.hs +++ b/semantic-tags/src/Tags/Taggable/Precise.hs @@ -52,16 +52,12 @@ class ToTagBy (strategy :: Strategy) t where data Strategy = Generic | Custom type family ToTagInstance t :: Strategy where - ToTagInstance [_] = 'Custom ToTagInstance ((_ :+: _) _) = 'Custom ToTagInstance (Py.FunctionDefinition Loc) = 'Custom ToTagInstance (Py.ClassDefinition Loc) = 'Custom ToTagInstance (Py.Call Loc) = 'Custom ToTagInstance _ = 'Generic -instance ToTag t => ToTagBy 'Custom [t] where - tag' = traverse_ tag - instance (ToTag (l a), ToTag (r a)) => ToTagBy 'Custom ((l :+: r) a) where tag' (L1 l) = tag l tag' (R1 r) = tag r