mirror of
https://github.com/macocianradu/RosettaHaskellCompiler.git
synced 2026-03-18 13:00:08 +00:00
10 lines
281 B
Haskell
10 lines
281 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module PrettyPrinter.General where
|
|
|
|
import Prettyprinter
|
|
|
|
printDescription :: Maybe String -> Doc a -> Doc a
|
|
printDescription (Just description) doc =
|
|
vcat [enclose "{-" "-}" (pretty description), doc]
|
|
printDescription Nothing doc = doc |