reserve-0.0.0: src/Main.hs

module Main (main) where

import           Network

import           Options
import           Reserve

main :: IO ()
main = withSocketsDo $ do
  withOptions $ \opts -> do
    putStrLn $ "http://localhost:" ++ show (optionsReservePort opts)
    run opts