initial commit

src/PrettyPrinter/General.hs

@@ -0,0 +1,10 @@
+{-# 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