blob: eb8f92c39cea7bb6617f07e3a070b9f3e38b0021 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
module Main where
import Remote.Slave (startSlave')
import System.Environment (getArgs, getProgName)
import System.Exit (die)
main :: IO ()
main = getArgs >>= startSlave
dieWithUsage :: IO a
dieWithUsage = do
prog <- getProgName
die $ msg prog
where
msg name = "usage: " ++ name ++ " /path/to/storage PORT [-v]"
startSlave :: [String] -> IO ()
startSlave args0
| "--help" `elem` args0 = dieWithUsage
| otherwise = do
(path, port, rest) <- case args0 of
arg0:arg1:rest -> return (arg0, read arg1, rest)
_ -> dieWithUsage
verbose <- case rest of
["-v"] -> return True
[] -> return False
_ -> dieWithUsage
startSlave' verbose path port
|
