Get rid of obsolete testing utilities.

1 files changed, 0 insertions, 27 deletions

diff --git a/hypsrc-test/accept.hs b/hypsrc-test/accept.hs
deleted file mode 100755
index 4606b2df..00000000
--- a/hypsrc-test/accept.hs
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/env runhaskell
-{-# LANGUAGE CPP #-}
-
-
-import System.Directory
-import System.FilePath
-import System.Environment
-
-import Utils
-
-
-main :: IO ()
-main = do
-    args <- getArgs
-    files <- filter isHtmlFile <$> getDirectoryContents outDir'
-    let files' = if args == ["--all"] || args == ["-a"]
-        then files
-        else filter ((`elem` args) . takeBaseName) files
-    mapM_ copy files'
-  where
-    isHtmlFile = (== ".html") . takeExtension
-
-
-copy :: FilePath -> IO ()
-copy file = do
-    content <- stripLocalReferences <$> readFile (outDir' </> file)
-    writeFile (refDir' </> file) content