hothasktags 0.3.5 → 0.3.6
raw patch · 2 files changed
+8/−7 lines, 2 filesdep ~cpphsdep ~haskell-src-exts
Dependency ranges changed: cpphs, haskell-src-exts
Files
- Main.hs +5/−4
- hothasktags.cabal +3/−3
Main.hs view
@@ -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
hothasktags.cabal view
@@ -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