From d4f3629e4eb1a5a8d0dbb82ed4e8087faf6f2a58 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Thu, 15 Sep 2022 18:21:04 +1000 Subject: [server] reuse infobox function and separate out main --- app/Main.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'app/Main.hs') diff --git a/app/Main.hs b/app/Main.hs index 74a03eb..ea64179 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -199,10 +199,13 @@ app = serve api server api :: Proxy API api = Proxy +servall :: ServerConfig -> IO () +servall config = run (configPort config) app + main :: IO () main = do config <- execParser opts - run (configPort config) app + servall config where opts = info (optParser <**> helper) -- cgit v1.2.3