From 767569881732c59378fb577d1a2b57b51bc454d0 Mon Sep 17 00:00:00 2001
From: Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com>
Date: Wed, 1 Jul 2015 01:14:59 +0200
Subject: Create simple script for accepting hyperlinker test case references.

---
 hypsrc-test/accept.hs | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100755 hypsrc-test/accept.hs

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

diff --git a/hypsrc-test/accept.hs b/hypsrc-test/accept.hs
new file mode 100755
index 00000000..4606b2df
--- /dev/null
+++ b/hypsrc-test/accept.hs
@@ -0,0 +1,27 @@
+#!/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