diff --git a/src/Text/PrettyPrint/Annotated/HughesPJ.hs b/src/Text/PrettyPrint/Annotated/HughesPJ.hs
index 5e185ed41853084727b089e48b350600d0337049..9743310caeb75b6a74723d4c1ec3ef2938064283 100644
--- a/src/Text/PrettyPrint/Annotated/HughesPJ.hs
+++ b/src/Text/PrettyPrint/Annotated/HughesPJ.hs
@@ -720,11 +720,11 @@ nilBeside g p | g         = textBeside_ spaceText p
 --                         `union`
 --                          vcat ps
 
--- | Either 'hsep' or 'vcat'.
+-- | 'hsep' if it fits, else 'vcat'.
 sep  :: [Doc a] -> Doc a
 sep = sepX True   -- Separate with spaces
 
--- | Either 'hcat' or 'vcat'.
+-- | 'hcat' if it fits, else 'vcat'.
 cat :: [Doc a] -> Doc a
 cat = sepX False  -- Don't
 
diff --git a/src/Text/PrettyPrint/HughesPJ.hs b/src/Text/PrettyPrint/HughesPJ.hs
index 5d06aeb95640d920f4640ad69d5194b394dd5a0f..01efc01c3f3e2bf9120ce037a4f49ff8460e5cfa 100644
--- a/src/Text/PrettyPrint/HughesPJ.hs
+++ b/src/Text/PrettyPrint/HughesPJ.hs
@@ -387,12 +387,12 @@ punctuate (Doc p) ds = [ Doc d | d <- Ann.punctuate p [ d | Doc d <- ds ] ]
 --                         `union`
 --                          vcat ps
 
--- | Either 'hsep' or 'vcat'.
+-- | 'hsep' if it fits, otherwise 'vcat'.
 sep  :: [Doc] -> Doc
 sep  = liftList Ann.sep
 {-# INLINE sep #-}
 
--- | Either 'hcat' or 'vcat'.
+-- |'hcat' if it fits, otherwise 'vcat'.
 cat :: [Doc] -> Doc
 cat = liftList Ann.cat
 {-# INLINE cat #-}