1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
{-# LANGUAGE FlexibleInstances, TypeSynonymInstances #-}
module Debian.Control.PrettyPrint where
import qualified Data.ByteString.Char8 as C
import Text.PrettyPrint.HughesPJ
import Debian.Control.Common
ppControl :: (ToText a) => Control' a -> Doc
ppControl (Control paragraph) =
fsep (map ppParagraph paragraph)
ppParagraph :: (ToText a) => Paragraph' a -> Doc
ppParagraph (Paragraph fields) =
fsep (map ppField fields)
ppField :: (ToText a) => Field' a -> Doc
ppField (Field (n,v)) = totext n <> text ":" <> totext v
class ToText a where
totext :: a -> Doc
instance ToText String where
totext = text
instance ToText C.ByteString where
totext = text . C.unpack
|
