From 6baa33d0d6414baed866444ae82e6becca9c5877 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Tue, 24 Sep 2019 17:03:23 -0400 Subject: [PATCH] Spacing. --- semantic-tags/src/Language/Python/Tags.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/semantic-tags/src/Language/Python/Tags.hs b/semantic-tags/src/Language/Python/Tags.hs index 8f46c4d02..e15bb1b11 100644 --- a/semantic-tags/src/Language/Python/Tags.hs +++ b/semantic-tags/src/Language/Python/Tags.hs @@ -56,6 +56,7 @@ type family ToTagsInstance t :: Strategy where ToTagsInstance Py.Call = 'Custom ToTagsInstance _ = 'Generic + instance (ToTags l, ToTags r) => ToTagsBy 'Custom (l :+: r) where tags' (L1 l) = tags l tags' (R1 r) = tags r @@ -109,5 +110,6 @@ docComment _ _ = Nothing firstLine :: Source -> Text firstLine = T.take 180 . T.takeWhile (/= '\n') . toText + instance (Generic1 t, Tags.GFoldable1 ToTags (Rep1 t)) => ToTagsBy 'Generic t where tags' = getAp . Tags.gfoldMap1 @ToTags (Ap . tags) . from1