main :: IO ()
main = do
    argv <- getArgs
    progName <- getProgName
    (options, _) <- compilerOpts argv progName
    case length options of
        0 -> startEdaxLoop
        _ -> case head options of
            EvalOptions s -> printf "%s\n" $ show $ EdaxProtocol.evalHelper s
            HashOptions s -> printf "%s\n" $ show $ EdaxProtocol.hashHelper s
            _ -> startEdaxLoop
main :: IO ()
main = do
    argv <- getArgs
    progName <- getProgName
    (options, _) <- compilerOpts argv progName
    case length options of
        0 -> startEdaxLoop
        _ -> case head options of
            EvalOptions s -> printf "%s\n" $ show $ EdaxProtocol.evalHelper s
            HashOptions s -> printf "%s\n" $ show $ EdaxProtocol.hashHelper s
            _ -> startEdaxLoop
main = do
    argv <- getArgs
    progName <- getProgName
    (options, _) <- compilerOpts argv progName
    case length options of
        0 -> startEdaxLoop
        _ -> case head options of
            EvalOptions s -> printf "%s\n" $ show $ EdaxProtocol.evalHelper s
            HashOptions s -> printf "%s\n" $ show $ EdaxProtocol.hashHelper s
            _ -> startEdaxLoop