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

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

@ -145,13 +145,10 @@ createDerivingPar mDerivs mainDoc = do
case mDerivs of
Nothing -> docLines [mainDoc]
Just (L _ [(HsIB _ t)]) -> do
docAlt
[ docPar mainDoc $ docEnsureIndent BrIndentRegular $ docSeq
docPar mainDoc $ docEnsureIndent BrIndentRegular $ docSeq
[docDeriving, docSeparator, layoutType t]
]
Just (L _ ts ) -> do
docAlt
[ docPar mainDoc $ docEnsureIndent BrIndentRegular $ docSeq
docPar mainDoc $ docEnsureIndent BrIndentRegular $ docSeq
[ docDeriving
, docSeparator
, docLit $ Text.pack "("
@ -159,7 +156,6 @@ createDerivingPar mDerivs mainDoc = do
layoutType t
, docLit $ Text.pack ")"
]
]
docDeriving :: ToBriDocM BriDocNumbered
docDeriving = docLit $ Text.pack "deriving"