Group together pragmas after type signatures
commit5c923a2cf7e573022e8a45144b7d4100b4b522a4
authorUtku Demir <me@utdemir.com>
dateWed 11 Sep 2019, 14:14 (7 years ago)
parentdb48697
data/examples/declaration/signature/inline/inline-out.hs+4
@@ -9,3 +9,7 @@ bar = id
99baz :: Int -> Int
1010baz = id
1111{-# INLINE [~2] baz #-}
12+
13+reVector :: Bundle u a -> Bundle v a
14+{-# INLINE reVector #-}
15+reVector = M.reVector
data/examples/declaration/signature/inline/inline.hs+5
@@ -11,3 +11,8 @@ bar = id
1111baz :: Int -> Int
1212baz = id
1313{-# INLINE [~2] baz #-}
14+
15+reVector :: Bundle u a -> Bundle v a
16+
17+{-# INLINE reVector #-}
18+reVector = M.reVector
src/Ormolu/Printer/Meat/Declaration.hs+1
@@ -137,6 +137,7 @@ groupedDecls (DataDeclaration n) x | Just ns <- isPragma x =
137137 let f = occNameFS . rdrNameOcc in f n `elem` map f ns
138138groupedDecls x y | Just ns <- isPragma x, Just ns' <- isPragma y = ns `intersects` ns'
139139groupedDecls x (TypeSignature ns) | Just ns' <- isPragma x = ns `intersects` ns'
140+groupedDecls (TypeSignature ns) x | Just ns' <- isPragma x = ns `intersects` ns'
140141groupedDecls (PatternSignature ns) (Pattern n) = n `elem` ns
141142groupedDecls _ _ = False
142143