about summary refs log tree commit diff
path: root/tools/colouriser/colour.hs
diff options
context:
space:
mode:
authorVincent Ambo <tazjin@gmail.com>2015-11-19T18·32+0100
committerVincent Ambo <tazjin@gmail.com>2015-11-19T18·32+0100
commitdb1ae9930cec8cdf892967c9d7b9c63bf81550ec (patch)
tree145fefa792e7a25ee433de90d12c3dde3d9b14b7 /tools/colouriser/colour.hs
parentb38216c162a817862dceddd0a86ad60468d79c01 (diff)
Remove old tools
Diffstat (limited to 'tools/colouriser/colour.hs')
-rw-r--r--tools/colouriser/colour.hs24
1 files changed, 0 insertions, 24 deletions
diff --git a/tools/colouriser/colour.hs b/tools/colouriser/colour.hs
deleted file mode 100644
index 3e6e39ba45f6..000000000000
--- a/tools/colouriser/colour.hs
+++ /dev/null
@@ -1,24 +0,0 @@
-{-# LANGUAGE TemplateHaskell #-}
-
-import Control.Monad (unless)
-import Language.Haskell.HsColour.Colourise (defaultColourPrefs)
-import Language.Haskell.HsColour.CSS
-import Options
-
-defineOptions "MainOptions" $ do
-	stringOption "optFile" "file" ""
-		"Name of the .hs file. Will be used for the HTML file as well"
-
-colorCode :: String -> IO ()
-colorCode input = do
-	code <- readFile input
-	putStr $ concat [ "<div class=\"code\">"
-		     		, hscolour False code
-				    , "</div>"
-				    ]
-
-main :: IO ()
-main = runCommand $ \opts args -> do
-	let file = optFile opts
-	unless (file == "") $
-		colorCode file
\ No newline at end of file