adding comments.
This commit is contained in:
parent
9c5eec47ca
commit
cbcbae052b
@ -8,11 +8,14 @@ import Pretty
|
|||||||
styleQualified :: PprStyle
|
styleQualified :: PprStyle
|
||||||
styleQualified = mkUserStyle alwaysQualify AllTheWay
|
styleQualified = mkUserStyle alwaysQualify AllTheWay
|
||||||
|
|
||||||
|
-- For "ghc-mod type"
|
||||||
showQualifiedPage :: DynFlags -> SDoc -> String
|
showQualifiedPage :: DynFlags -> SDoc -> String
|
||||||
showQualifiedPage dflag = showDocWith PageMode . withStyle dflag styleQualified
|
showQualifiedPage dflag = showDocWith PageMode . withStyle dflag styleQualified
|
||||||
|
|
||||||
|
-- Not used
|
||||||
showQualifiedOneLine :: DynFlags -> SDoc -> String
|
showQualifiedOneLine :: DynFlags -> SDoc -> String
|
||||||
showQualifiedOneLine dflag = showDocWith OneLineMode . withStyle dflag styleQualified
|
showQualifiedOneLine dflag = showDocWith OneLineMode . withStyle dflag styleQualified
|
||||||
|
|
||||||
|
-- To write Haskell code in a buffer
|
||||||
showUnqualifiedOneLine :: DynFlags -> SDoc -> String
|
showUnqualifiedOneLine :: DynFlags -> SDoc -> String
|
||||||
showUnqualifiedOneLine dflag = showDocWith OneLineMode . withStyle dflag styleUnqualified
|
showUnqualifiedOneLine dflag = showDocWith OneLineMode . withStyle dflag styleUnqualified
|
||||||
|
Loading…
Reference in New Issue
Block a user