diff options
Diffstat (limited to 'compiler/utils/Pretty.hs')
| -rw-r--r-- | compiler/utils/Pretty.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/compiler/utils/Pretty.hs b/compiler/utils/Pretty.hs index d876972073..a085e11d88 100644 --- a/compiler/utils/Pretty.hs +++ b/compiler/utils/Pretty.hs @@ -121,10 +121,9 @@ import qualified Data.Text as T import qualified Data.Text.Lazy as TL import qualified Data.Text.Lazy.IO as TL -import Data.Text.Prettyprint.Doc --- PI = PrettyprinterInternal -import Data.Text.Prettyprint.Doc.Internal as PI - +import Data.Text.Prettyprint.Doc hiding (vcat) +import qualified Data.Text.Prettyprint.Doc as P +import qualified Data.Text.Prettyprint.Doc.Internal as PI import Data.Text.Prettyprint.Doc.Render.Text import GHC.Float (float2Double) @@ -221,6 +220,8 @@ infixl 5 $$, $+$ ($$) :: Doc a -> Doc a -> Doc a ($$) = ($+$) +vcat :: [Doc a] -> Doc a +vcat = foldr ($$) mempty -- --------------------------------------------------------------------------- -- The Doc data type |