diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-21 22:35:57 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-21 22:35:57 -0400 |
| commit | 94a94c36cf0eba38b85b8fb6c360c14abae7031f (patch) | |
| tree | 0e13740582f22f19aa5bd3c24fa53f3cc7c7ca47 /debug-me.hs | |
| parent | 75c8b6b9745ea8e64383e28d3f18b1609be00fa3 (diff) | |
| download | debug-me-94a94c36cf0eba38b85b8fb6c360c14abae7031f.tar.gz | |
added debug-me --watch mode
This commit was sponsored by Ewen McNeill.
Diffstat (limited to 'debug-me.hs')
| -rw-r--r-- | debug-me.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/debug-me.hs b/debug-me.hs index ea2d6af..9319483 100644 --- a/debug-me.hs +++ b/debug-me.hs @@ -1,12 +1,13 @@ module Main where import CmdLine -import qualified Role.User -import qualified Role.Developer -import qualified Role.Downloader import Graphviz import Replay import Server +import qualified Role.User +import qualified Role.Developer +import qualified Role.Downloader +import qualified Role.Watcher import Network.Socket import System.Exit @@ -18,6 +19,7 @@ main = withSocketsDo $ do UserMode o -> Role.User.run o >>= exitWith DeveloperMode o -> Role.Developer.run o DownloadMode o -> Role.Downloader.run o + WatchMode o -> Role.Watcher.run o GraphvizMode o -> graphviz o ReplayMode o -> replay o ServerMode o -> server o |