@@ -158,18 +158,15 @@ renderDeclaration _ (P.TypeInstanceDeclaration name constraints className tys _)
158158 fenced $ "instance " ++ show name ++ " :: " ++ constraintsText ++ show className ++ " " ++ unwords (map P.prettyPrintTypeAtom tys)
159159renderDeclaration exps (P.PositionedDeclaration _ com d) = do
160160 renderDeclaration exps d
161− spacer
162161 renderComments com
163162renderDeclaration _ _ = return ()
164163
165164renderComments :: [P.Comment] -> Docs
166165renderComments cs = do
167166 let raw = concatMap toLines cs
168−
169− if all hasPipe raw
170− then atIndent 0 . unlines . map stripPipes $ raw
171− else atIndent 4 $ unlines raw
172−
167+ when (all hasPipe raw) $ do
168+ spacer
169+ atIndent 0 . unlines . map stripPipes $ raw
173170 where
174171
175172 toLines (P.LineComment s) = [s]