@@ -137,6 +137,7 @@ groupedDecls (DataDeclaration n) x | Just ns <- isPragma x =
137 let f = occNameFS . rdrNameOcc in f n `elem` map f ns
137 let f = occNameFS . rdrNameOcc in f n `elem` map f ns
138groupedDecls x y | Just ns <- isPragma x, Just ns' <- isPragma y = ns `intersects` ns'
138groupedDecls x y | Just ns <- isPragma x, Just ns' <- isPragma y = ns `intersects` ns'
139groupedDecls x (TypeSignature ns) | Just ns' <- isPragma x = ns `intersects` ns'
139groupedDecls x (TypeSignature ns) | Just ns' <- isPragma x = ns `intersects` ns'
140+groupedDecls (TypeSignature ns) x | Just ns' <- isPragma x = ns `intersects` ns'
140groupedDecls (PatternSignature ns) (Pattern n) = n `elem` ns
141groupedDecls (PatternSignature ns) (Pattern n) = n `elem` ns
141groupedDecls _ _ = False
142groupedDecls _ _ = False