From fb1d9b7d2c3c8261fc5a2ce3698e6749458b207a Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Thu, 26 Jun 2008 21:05:01 +0000
Subject: removed transfer from gf3

---
 transfer/transferc.hs | 39 ---------------------------------------
 1 file changed, 39 deletions(-)
 delete mode 100644 transfer/transferc.hs

(limited to 'transfer/transferc.hs')

diff --git a/transfer/transferc.hs b/transfer/transferc.hs
deleted file mode 100644
index 7a88d8e3a..000000000
--- a/transfer/transferc.hs
+++ /dev/null
@@ -1,39 +0,0 @@
-module Main where
-
-import Transfer.CompilerAPI
-
-import Data.List (partition, isPrefixOf)
-import System.Environment
-import System.Exit
-import System.IO
-
-die :: String -> IO a
-die s = do
-        hPutStrLn stderr s
-        exitFailure
-
-getPath :: IO [String]
-getPath = do env <- getEnvironment
-             return $ case lookup "TRANSFER_PATH" env of
-                        Nothing -> []
-                        Just p  -> splitBy (==':') p
-
--- Modified version of a function which is originally
--- Copyright Bryn Keller
-splitBy :: (a -> Bool) -> [a] -> [[a]]
-splitBy _ [] = []
-splitBy f list = first : splitBy f (dropWhile f rest)
-   where (first, rest) = break f list
-
-main :: IO ()
-main = do 
-       args <- getArgs
-       let (flags,files) = partition ("-" `isPrefixOf`) args
-           argPath = [ p | ('-':'i':p) <- flags ]
-       envPath <- getPath
-       case files of
-         [f] -> do
-                cf <- compileFile (argPath ++ envPath) f
-                putStrLn $ "Wrote " ++ cf
-                return ()
-         _   -> die "Usage: transferc [-i<path> [-i<path> ... ]] <file>"
-- 
cgit v1.2.3