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.

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

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

diff --git a/html-test/accept.lhs b/html-test/accept.lhs
deleted file mode 100755
index f6dfc4cd..00000000
--- a/html-test/accept.lhs
+++ /dev/null
@@ -1,49 +0,0 @@
-#!/usr/bin/env runhaskell
-\begin{code}
-{-# LANGUAGE CPP #-}
-import System.Cmd
-import System.Environment
-import System.FilePath
-import System.Directory
-import Data.List
-import Control.Applicative
-
-baseDir = takeDirectory __FILE__
-
-main :: IO ()
-main = do
-  contents <- filter (not . ignore) <$> getDirectoryContents (baseDir </> "out")
-  args <- getArgs
-  if not $ null args then
-    mapM_ copy [ baseDir </> "out" </> file | file <- contents, ".html" `isSuffixOf` file, takeBaseName file `elem` args  ]
-  else
-    mapM_ copy [ baseDir </> "out" </> file | file <- contents]
-  where
-    ignore =
-      foldr (liftA2 (||)) (const False) [
-        (== ".")
-      , (== "..")
-      , (isPrefixOf "index")
-      , (isPrefixOf "doc-index")
-      ]
-
-copy :: FilePath -> IO ()
-copy file = do
-  let new = baseDir </> "ref" </> takeFileName file
-  if ".html" `isSuffixOf` file then do
-    putStrLn (file ++ " -> " ++ new)
-    stripLinks <$> readFile file >>= writeFile new
-  else do
-    -- copy css, images, etc.
-    copyFile file new
-
-stripLinks :: String -> String
-stripLinks str =
-  let prefix = "<a href=\"" in
-  case stripPrefix prefix str of
-    Just str' -> prefix ++ stripLinks (dropWhile (/= '"') str')
-    Nothing ->
-      case str of
-        [] -> []
-        x : xs -> x : stripLinks xs
-\end{code}
-- 
cgit v1.2.3