From 26d064d4510146d8c55537276b27d418dffd21ce Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 23 Sep 2019 17:38:53 -0400 Subject: [PATCH] =?UTF-8?q?Don=E2=80=99t=20call=20ToTag=20for=20constant?= =?UTF-8?q?=20fields.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- semantic-tags/src/Tags/Taggable/Precise.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/semantic-tags/src/Tags/Taggable/Precise.hs b/semantic-tags/src/Tags/Taggable/Precise.hs index b263d5396..9e1ad2aad 100644 --- a/semantic-tags/src/Tags/Taggable/Precise.hs +++ b/semantic-tags/src/Tags/Taggable/Precise.hs @@ -132,8 +132,8 @@ instance (GToTag f, GToTag g) => GToTag (f :+: g) where gtag (L1 l) = gtag l gtag (R1 r) = gtag r -instance ToTag t => GToTag (K1 R t) where - gtag = tag . unK1 +instance GToTag (K1 R t) where + gtag _ = pure () instance GToTag Par1 where gtag _ = pure ()