diff --git a/Main.hs b/Main.hs
--- a/Main.hs
+++ b/Main.hs
@@ -131,8 +131,8 @@
                       (Just (L.ExportSpecList _ specs)))) _ _ _) name =
     any (matchesSpec name) specs
   where
-    matchesSpec nm (L.EVar _ _ (L.UnQual _ (L.Ident _ name'))) = nm == name'
-    matchesSpec nm (L.EAbs _ (L.UnQual _ (L.Ident _ name'))) = nm == name'
+    matchesSpec nm (L.EVar _ (L.UnQual _ (L.Ident _ name'))) = nm == name'
+    matchesSpec nm (L.EAbs _ _ (L.UnQual _ (L.Ident _ name'))) = nm == name'
     matchesSpec nm (L.EThingAll _ (L.UnQual _ (L.Ident _ name'))) =
       nm == name' || (nm `elem` thingMembers mod' name')
     matchesSpec nm (L.EThingWith _ (L.UnQual _ (L.Ident _ name')) cnames) =
@@ -189,8 +189,8 @@
 
           normalExports = modExports db name
 
-          specName (L.IVar _ _ (L.Ident _ name')) = [name']
-          specName (L.IAbs _ (L.Ident _ name')) = [name']
+          specName (L.IVar _ (L.Ident _ name')) = [name']
+          specName (L.IAbs _ _ (L.Ident _ name')) = [name']
           -- XXX incorrect, need its member names
           specName (L.IThingAll _ (L.Ident _ name')) = [name']
           specName (L.IThingWith _ (L.Ident _ name') cnames) =
@@ -275,6 +275,7 @@
       { L.parseFilename = filename
       , L.extensions = exts
       , L.ignoreLanguagePragmas = False
+      , L.ignoreFunctionArity = True
       , L.ignoreLinePragmas = False
       , L.fixities = Nothing
       , L.baseLanguage = L.Haskell2010
diff --git a/hothasktags.cabal b/hothasktags.cabal
--- a/hothasktags.cabal
+++ b/hothasktags.cabal
@@ -1,5 +1,5 @@
 name: hothasktags
-version: 0.3.5
+version: 0.3.6
 cabal-version: >= 1.6
 build-type: Simple
 author: Luke Palmer <lrpalmer@gmail.com>
@@ -38,8 +38,8 @@
         filepath,
         filemanip,
         Glob,
-        haskell-src-exts >= 1.14,
-        cpphs >= 1.11 && < 1.20,
+        haskell-src-exts >= 1.17 && < 1.18,
+        cpphs >= 1.11 && < 1.21,
         optparse-applicative,
         split
     main-is: Main.hs