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.

---
 latex-test/accept.lhs | 46 ----------------------------------------------
 1 file changed, 46 deletions(-)
 delete mode 100755 latex-test/accept.lhs

(limited to 'latex-test/accept.lhs')

diff --git a/latex-test/accept.lhs b/latex-test/accept.lhs
deleted file mode 100755
index 4d0b0127..00000000
--- a/latex-test/accept.lhs
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/usr/bin/env runhaskell
-\begin{code}
-{-# LANGUAGE CPP #-}
-import System.Environment
-import System.FilePath
-import System.Directory
-import Data.List
-import Control.Applicative
-import Control.Monad
-
-baseDir :: FilePath
-baseDir = takeDirectory __FILE__
-
-main :: IO ()
-main = do
-  contents <- filter (not . ignore) <$> getDirectoryContents (baseDir </> "out")
-  args <- getArgs
-  mapM_ copyDir $ if not (null args)
-                  then filter ((`elem` args) . takeBaseName) contents
-                  else contents
-  where
-    ignore =
-      foldr (liftA2 (||)) (const False) [
-        (== ".")
-      , (== "..")
-      , isPrefixOf "index"
-      , isPrefixOf "doc-index"
-      ]
-
--- | Copy a directory to ref, one level deep.
-copyDir :: FilePath -> IO ()
-copyDir dir = do
-  let old = baseDir </> "out" </> dir
-      new = baseDir </> "ref" </> dir
-  alreadyExists <- doesDirectoryExist new
-  unless alreadyExists $ do
-    putStrLn (old ++ " -> " ++ new)
-    createDirectoryIfMissing True new
-    files <- getDirectoryContents old >>= filterM (liftM not . doesDirectoryExist)
-    let files' = filter (\x -> x /= "." && x /= "..") files
-    mapM_ (\f -> copyFile' (old </> f) (new </> f)) files'
-      where
-        copyFile' o n = do
-          putStrLn $ o ++ " -> " ++ n
-          copyFile o n
-\end{code}
-- 
cgit v1.2.3