From 7e0c6b5417a9391834a37d2d94d09b781d2da6f2 Mon Sep 17 00:00:00 2001
From: Timothy Clem <timothy.clem@gmail.com>
Date: Fri, 13 Dec 2019 13:43:59 -0800
Subject: [PATCH] Give this a signature

---
 semantic-python/src/Language/Python/Tags.hs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/semantic-python/src/Language/Python/Tags.hs b/semantic-python/src/Language/Python/Tags.hs
index 22422561e..b60be3cd6 100644
--- a/semantic-python/src/Language/Python/Tags.hs
+++ b/semantic-python/src/Language/Python/Tags.hs
@@ -63,6 +63,13 @@ instance (ToTags l, ToTags r) => ToTagsBy 'Custom (l :+: r) where
   tags' (L1 l) = tags l
   tags' (R1 r) = tags r
 
+keywordFunctionCall
+  :: ( Has (Reader Source) sig m
+     , Has (Writer Tags.Tags) sig m
+     , Generic1 t
+     , Tags.GFoldable1 ToTags (Rep1 t)
+     )
+  => t Loc -> Loc -> Range -> Text -> m ()
 keywordFunctionCall t loc range name = do
   src <- ask @Source
   let sliced = slice src range