diff --git a/hasktags.cabal b/hasktags.cabal
--- a/hasktags.cabal
+++ b/hasktags.cabal
@@ -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
diff --git a/src/Hasktags.hs b/src/Hasktags.hs
--- a/src/Hasktags.hs
+++ b/src/Hasktags.hs
@@ -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 _ = ("", [])