hexagoxel
/
brittany
1
0
Fork 0
Code Issues 117 Pull Requests 5 Packages Projects Releases 5 Wiki Activity

Remove docAlt.

pull/95/head
Evan Rutledge Borden 2017-12-30 23:07:58 -05:00
parent 011b108558
commit cde1399c4f
1 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/Language/Haskell/Brittany/Internal/Layouters/DataDecl.hs
View File

@ -145,20 +145,16 @@ createDerivingPar mDerivs mainDoc = do
case mDerivs of
Nothing -> docLines [mainDoc]
Just (L _ [(HsIB _ t)]) -> do
docAlt
[ docPar mainDoc $ docEnsureIndent BrIndentRegular $ docSeq
[docDeriving, docSeparator, layoutType t]
]
docPar mainDoc $ docEnsureIndent BrIndentRegular $ docSeq
[docDeriving, docSeparator, layoutType t]
Just (L _ ts ) -> do
docAlt
[ docPar mainDoc $ docEnsureIndent BrIndentRegular $ docSeq
[ docDeriving
, docSeparator
, docLit $ Text.pack "("
, docSeq $ List.intersperse docCommaSep $ ts <&> \(HsIB _ t) ->
layoutType t
, docLit $ Text.pack ")"
]
docPar mainDoc $ docEnsureIndent BrIndentRegular $ docSeq
[ docDeriving
, docSeparator
, docLit $ Text.pack "("
, docSeq $ List.intersperse docCommaSep $ ts <&> \(HsIB _ t) ->
layoutType t
, docLit $ Text.pack ")"
]
docDeriving :: ToBriDocM BriDocNumbered