From 360d8ac4601dc5b48c22eeb93eb1853cee99e6c9 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 21 Apr 2017 13:25:51 -0400 Subject: http server scaffolding --- debug-me.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'debug-me.hs') 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 -- cgit v1.2.3