From 3c88a8a3336b26939738d481a60233821b926adb Mon Sep 17 00:00:00 2001
From: Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com>
Date: Mon, 24 Aug 2015 23:14:18 +0200
Subject: Get rid of obsolete testing utilities.

---
 hypsrc-test/accept.hs | 27 ---------------------------
 1 file changed, 27 deletions(-)
 delete mode 100755 hypsrc-test/accept.hs

(limited to 'hypsrc-test/accept.hs')

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
-- 
cgit v1.2.3