on master help sign in
Group together pragmas after type signatures
5c923a2Utku Demir
data/examples/declaration/signature/inline/inline-out.hs+4
@@ -9,3 +9,7 @@ bar = id
9baz :: Int -> Int
9baz :: Int -> Int
10baz = id
10baz = id
11{-# INLINE [~2] baz #-}
11{-# 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
11baz :: Int -> Int
11baz :: Int -> Int
12baz = id
12baz = id
13{-# INLINE [~2] baz #-}
13{-# 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 =
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
142
143