module Language.Haskell.HsColour (Output(..), ColourPrefs(..),
hscolour) where
import Language.Haskell.HsColour.Colourise (ColourPrefs(..))
import qualified Language.Haskell.HsColour.TTY as TTY
import qualified Language.Haskell.HsColour.HTML as HTML
import qualified Language.Haskell.HsColour.CSS as CSS
import qualified Language.Haskell.HsColour.LaTeX as LaTeX
data Output = TTY
| LaTeX
| HTML
| CSS
hscolour :: Output
-> ColourPrefs
-> Bool
-> String
-> String
hscolour TTY pref _ = TTY.hscolour pref
hscolour LaTeX pref _ = LaTeX.hscolour pref
hscolour HTML pref anchor = HTML.hscolour pref anchor
hscolour CSS _ anchor = CSS.hscolour anchor