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 case mDerivs of
Nothing -> docLines [mainDoc] Nothing -> docLines [mainDoc]
Just (L _ [(HsIB _ t)]) -> do Just (L _ [(HsIB _ t)]) -> do
docAlt docPar mainDoc $ docEnsureIndent BrIndentRegular $ docSeq
[ docPar mainDoc $ docEnsureIndent BrIndentRegular $ docSeq [docDeriving, docSeparator, layoutType t]
[docDeriving, docSeparator, layoutType t]
]
Just (L _ ts ) -> do Just (L _ ts ) -> do
docAlt docPar mainDoc $ docEnsureIndent BrIndentRegular $ docSeq
[ docPar mainDoc $ docEnsureIndent BrIndentRegular $ docSeq [ docDeriving
[ docDeriving , docSeparator
, docSeparator , docLit $ Text.pack "("
, docLit $ Text.pack "(" , docSeq $ List.intersperse docCommaSep $ ts <&> \(HsIB _ t) ->
, docSeq $ List.intersperse docCommaSep $ ts <&> \(HsIB _ t) -> layoutType t
layoutType t , docLit $ Text.pack ")"
, docLit $ Text.pack ")"
]
] ]
docDeriving :: ToBriDocM BriDocNumbered docDeriving :: ToBriDocM BriDocNumbered