diff options
Diffstat (limited to 'debug-me.hs')
| -rw-r--r-- | debug-me.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/debug-me.hs b/debug-me.hs index 5238b89..a17a740 100644 --- a/debug-me.hs +++ b/debug-me.hs @@ -12,6 +12,7 @@ import Graphviz import Replay import Session import Crypto +import Server import Control.Concurrent import Control.Concurrent.Async @@ -30,8 +31,9 @@ main = do c <- getCmdLine case mode c of Test -> test - Graphviz g -> graphviz g - Replay r -> replay r + Graphviz o -> graphviz o + Replay o -> replay o + Server o -> server o test :: IO () test = do |