hindent 4.5.0 → 4.5.1
raw patch · 2 files changed
+10/−1 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- hindent.cabal +1/−1
- src/HIndent/Styles/JohanTibell.hs +9/−0
hindent.cabal view
@@ -1,5 +1,5 @@ name: hindent-version: 4.5.0+version: 4.5.1 synopsis: Extensible Haskell pretty printer description: Extensible Haskell pretty printer. Both a library and an executable. .
src/HIndent/Styles/JohanTibell.hs view
@@ -84,6 +84,15 @@ -- | Handle do and case specially and also space out guards more. rhs :: Rhs NodeInfo -> Printer s ()+rhs (UnGuardedRhs _ (Do _ dos)) =+ do inCase <- gets psInsideCase+ write (if inCase then " -> " else " = ")+ indentSpaces <- getIndentSpaces+ let indentation | inCase = indentSpaces+ | otherwise = max 4 indentSpaces+ swingBy indentation+ (write "do")+ (lined (map pretty dos)) rhs x = prettyNoExt x -- | Implement dangling right-hand-sides.