{-# LANGUAGE CPP #-}
module HsColour(hsColourHTML, hsColourConsole) where

#ifdef GPL_SCARES_ME

hsColourConsole :: String -> String
hsColourConsole = id

hsColourHTML :: String -> String
hsColourHTML = id

#else

import Prelude

import Language.Haskell.HsColour.TTY as TTY
import Language.Haskell.HsColour.Colourise
import Language.Haskell.HsColour.CSS as CSS

hsColourConsole :: String -> String
hsColourConsole :: String -> String
hsColourConsole = ColourPrefs -> String -> String
TTY.hscolour ColourPrefs
defaultColourPrefs

hsColourHTML :: String -> String
hsColourHTML :: String -> String
hsColourHTML = Bool -> Int -> String -> String
CSS.hscolour Bool
False Int
1

#endif