git.iko.soy/ormolu
on master help sign in
Correctly format when adding annotations to types
b3f6e1bUtku Demir
data/examples/declaration/annotation/annotation-out.hs+1
compare with master
unifiedsplit
@@ -17,4 +17,5 @@ foo = 5
17 #-}
17 #-}
18
18
19data Foo = Foo Int
19data Foo = Foo Int
20+{-# ANN type Foo ("HLint: ignore") #-}
20{- Comment -}
21{- Comment -}
data/examples/declaration/annotation/annotation.hs+2
@@ -15,4 +15,6 @@ foo = 5
15
15
16data Foo = Foo Int
16data Foo = Foo Int
17
17
18+{-# ANN type Foo ("HLint: ignore") #-}
19+
18{- Comment -}
20{- Comment -}
src/Ormolu/Printer/Meat/Declaration/Annotation.hs+1−1
@@ -23,5 +23,5 @@ p_annDecl = \case
23p_annProv :: AnnProvenance (IdP GhcPs) -> R ()
23p_annProv :: AnnProvenance (IdP GhcPs) -> R ()
24p_annProv = \case
24p_annProv = \case
25 ValueAnnProvenance name -> p_rdrName name
25 ValueAnnProvenance name -> p_rdrName name
26− TypeAnnProvenance name -> p_rdrName name
26+ TypeAnnProvenance name -> txt "type " >> p_rdrName name
27 ModuleAnnProvenance -> txt "module"
27 ModuleAnnProvenance -> txt "module"