adding comments.

This commit is contained in:
Kazu Yamamoto 2013-07-14 16:45:43 +09:00
parent 9c5eec47ca
commit cbcbae052b

View File

@ -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