diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-04-21 13:25:51 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-04-21 13:25:51 -0400 |
commit | 360d8ac4601dc5b48c22eeb93eb1853cee99e6c9 (patch) | |
tree | 57b1e55c818dc45862cb5375e541f7efee829530 /debug-me.hs | |
parent | e336a4fdf3d55f01b8c2871ceb906544a493eeb7 (diff) | |
download | debug-me-360d8ac4601dc5b48c22eeb93eb1853cee99e6c9.tar.gz |
http server scaffolding
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 |