From 906251e6237ccff60b4b4787cb40a7f8c7960cf7 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 18 Dec 2020 12:16:52 -0800
Subject: Remove data/make-reference-files.hs.

I don't think this has been used for a long time.
---
 data/make-reference-files.hs | 27 ---------------------------
 1 file changed, 27 deletions(-)
 delete mode 100644 data/make-reference-files.hs

diff --git a/data/make-reference-files.hs b/data/make-reference-files.hs
deleted file mode 100644
index 77e518496..000000000
--- a/data/make-reference-files.hs
+++ /dev/null
@@ -1,27 +0,0 @@
-import System.Environment
-import System.Directory
-import Codec.Archive.Zip
-import qualified Data.ByteString.Lazy as BS
-import qualified Control.Exception as E
-import System.IO.Error (isDoesNotExistError)
-import System.FilePath
-
-mkzip :: String -> IO ()
-mkzip fmt = do
-  let dir    = "data" </> fmt
-      output = "data" </> "reference" <.> fmt
-  cd <- getCurrentDirectory
-  setCurrentDirectory dir
-  archive <- addFilesToArchive [OptRecursive] emptyArchive ["."]
-  setCurrentDirectory cd
-  removeIfExists output
-  BS.writeFile output $ fromArchive archive
-
-removeIfExists :: FilePath -> IO ()
-removeIfExists fileName = removeFile fileName `E.catch` handleExists
-  where handleExists e
-          | isDoesNotExistError e = return ()
-          | otherwise = E.throwIO e
-
-main :: IO ()
-main = getArgs >>= mkzip . (!!0)
-- 
cgit v1.2.3