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

Fix one misplaced comment bug on data decls

pull/259/head
Lennart Spitzner 2019-11-27 21:19:36 +01:00 committed by Evan Rutledge Borden
parent 6c3d9c57c5
commit 3fbbf3d661
1 changed files with 14 additions and 8 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

@ -143,11 +143,14 @@ layoutDataDecl ltycl name (HsQTvs _ bndrs _) defn = case defn of
createDerivingPar mDerivs $ docAlt createDerivingPar mDerivs $ docAlt
[ -- data D = forall a . Show a => D a [ -- data D = forall a . Show a => D a
docSeq docSeq
[ appSep $ docLitS "data" [ docNodeAnnKW ltycl (Just GHC.AnnData)
, docForceSingleline $ lhsContextDoc $ docSeq
, appSep $ docLit nameStr [ appSep $ docLitS "data"
, appSep tyVarLine , docForceSingleline $ lhsContextDoc
, docSeparator , appSep $ docLit nameStr
, appSep tyVarLine
, docSeparator
]
, docLitS "=" , docLitS "="
, docSeparator , docSeparator
, case forallDocMay of , case forallDocMay of
@ -164,7 +167,8 @@ layoutDataDecl ltycl name (HsQTvs _ bndrs _) defn = case defn of
, -- data D , -- data D
-- = forall a . Show a => D a -- = forall a . Show a => D a
docAddBaseY BrIndentRegular $ docPar docAddBaseY BrIndentRegular $ docPar
( docSeq ( docNodeAnnKW ltycl (Just GHC.AnnData)
$ docSeq
[ appSep $ docLitS "data" [ appSep $ docLitS "data"
, docForceSingleline lhsContextDoc , docForceSingleline lhsContextDoc
, appSep $ docLit nameStr , appSep $ docLit nameStr
@ -191,7 +195,8 @@ layoutDataDecl ltycl name (HsQTvs _ bndrs _) defn = case defn of
-- . Show a => -- . Show a =>
-- D a -- D a
docAddBaseY BrIndentRegular $ docPar docAddBaseY BrIndentRegular $ docPar
( docSeq ( docNodeAnnKW ltycl (Just GHC.AnnData)
$ docSeq
[ appSep $ docLitS "data" [ appSep $ docLitS "data"
, docForceSingleline lhsContextDoc , docForceSingleline lhsContextDoc
, appSep $ docLit nameStr , appSep $ docLit nameStr
@ -214,7 +219,8 @@ layoutDataDecl ltycl name (HsQTvs _ bndrs _) defn = case defn of
(docLitS "data") (docLitS "data")
( docLines ( docLines
[ lhsContextDoc [ lhsContextDoc
, docSeq , docNodeAnnKW ltycl (Just GHC.AnnData)
$ docSeq
[ appSep $ docLit nameStr [ appSep $ docLit nameStr
, tyVarLine , tyVarLine
] ]