diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-04-21 22:23:00 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-04-21 22:24:51 -0400 |
commit | 75c8b6b9745ea8e64383e28d3f18b1609be00fa3 (patch) | |
tree | 3cdbe871bf78eddb38307def309e5a982234fdc1 /debug-me.hs | |
parent | 51702e72de15637653f8cc153ffeb43cdb194827 (diff) | |
download | debug-me-75c8b6b9745ea8e64383e28d3f18b1609be00fa3.tar.gz |
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.
Diffstat (limited to 'debug-me.hs')
-rw-r--r-- | debug-me.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 |