Remove data/make-reference-files.hs.
I don't think this has been used for a long time.
This commit is contained in:
parent
f4839cc581
commit
906251e623
1 changed files with 0 additions and 27 deletions
|
@ -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)
|
Loading…
Reference in a new issue