diff options
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 |