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/Utils.hs | 47 -----------------------------------------------
 1 file changed, 47 deletions(-)
 delete mode 100644 hypsrc-test/Utils.hs

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

diff --git a/hypsrc-test/Utils.hs b/hypsrc-test/Utils.hs
deleted file mode 100644
index e15fabee..00000000
--- a/hypsrc-test/Utils.hs
+++ /dev/null
@@ -1,47 +0,0 @@
-{-# LANGUAGE CPP #-}
-
-
-module Utils
-    ( baseDir, rootDir
-    , srcDir, refDir, outDir, refDir', outDir'
-    , haddockPath
-    , stripLocalAnchors, stripLocalLinks, stripLocalReferences
-    ) where
-
-
-import Data.List
-
-import System.FilePath
-
-
-baseDir, rootDir :: FilePath
-baseDir = takeDirectory __FILE__
-rootDir = baseDir </> ".."
-
-srcDir, refDir, outDir, refDir', outDir' :: FilePath
-srcDir = baseDir </> "src"
-refDir = baseDir </> "ref"
-outDir = baseDir </> "out"
-refDir' = refDir </> "src"
-outDir' = outDir </> "src"
-
-haddockPath :: FilePath
-haddockPath = rootDir </> "dist" </> "build" </> "haddock" </> "haddock"
-
-
-replaceBetween :: Eq a => [a] -> a -> [a] -> [a] -> [a]
-replaceBetween _ _ _ [] = []
-replaceBetween pref end val html@(x:xs') = case stripPrefix pref html of
-    Just strip -> pref ++ val ++ (replaceBetween' . dropWhile (/= end)) strip
-    Nothing -> x:(replaceBetween' xs')
-  where
-    replaceBetween' = replaceBetween pref end val
-
-stripLocalAnchors :: String -> String
-stripLocalAnchors = replaceBetween "<a name=\"local-" '\"' "0"
-
-stripLocalLinks :: String -> String
-stripLocalLinks = replaceBetween "<a href=\"#local-" '\"' "0"
-
-stripLocalReferences :: String -> String
-stripLocalReferences = stripLocalLinks . stripLocalAnchors
-- 
cgit v1.2.3