hasktags 0.71.1 → 0.71.2

raw patch · 2 files changed

+6/−7 lines, 2 filesdep ~jsondep ~microlens-platformPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: json, microlens-platform

API changes (from Hackage documentation)

Files

• hasktags.cabal +1/−1
• src/Hasktags.hs +5/−6

@@ -1,5 +1,5 @@ Name: hasktags-Version: 0.71.1+Version: 0.71.2 Copyright: The University Court of the University of Glasgow License: BSD3 License-File: LICENSE

@@ -414,11 +414,10 @@ findFuncTypeDefs found xs@(Token "(" _ :_) scope =           case break myBreakF xs of             (inner@(Token _ p : _), rp : xs') ->-              let merged = Token ( concatMap (\z -> case z of-                                                 (Token x _) -> x-                                                 (NewLine _) -> "")-                                   $ inner ++ [rp] ) p-              in findFuncTypeDefs found (merged : xs') scope+              let merged = Token ( concatMap (\(Token x _) -> x) $ inner ++ [rp] ) p+              in if any (isNewLine Nothing) inner+                   then []+                   else findFuncTypeDefs found (merged : xs') scope             _ -> []     where myBreakF (Token ")" _) = True           myBreakF _             = False@@ -559,5 +558,5 @@  extractOperator :: [Token] -> (String, [Token]) extractOperator ts@(Token "(" _ : _) =-    foldr ((++) . tokenString) ")" *** tail $ break ((== ")") . tokenString) ts+    foldr ((++) . tokenString) ")" *** tail' $ break ((== ")") . tokenString) ts extractOperator _ = ("", [])