From 75c8b6b9745ea8e64383e28d3f18b1609be00fa3 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 21 Apr 2017 22:23:00 -0400 Subject: add --download mode Nice, was able to reuse all the protocol stuff from Role.Developer for this. This commit was sponsored by Fernando Jimenez on Patreon. --- debug-me.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'debug-me.hs') diff --git a/debug-me.hs b/debug-me.hs index 25f18b8..ea2d6af 100644 --- a/debug-me.hs +++ b/debug-me.hs @@ -3,6 +3,7 @@ module Main where import CmdLine import qualified Role.User import qualified Role.Developer +import qualified Role.Downloader import Graphviz import Replay import Server @@ -16,6 +17,7 @@ main = withSocketsDo $ do case mode c of UserMode o -> Role.User.run o >>= exitWith DeveloperMode o -> Role.Developer.run o + DownloadMode o -> Role.Downloader.run o GraphvizMode o -> graphviz o ReplayMode o -> replay o ServerMode o -> server o -- cgit v1.2.3