main :: IO ()
main = do
  arguments <- System.getArgs
  case arguments of
    [configurationFilename] -> runService configurationFilename
    _ -> help
main :: IO ()
main = do
  arguments <- System.getArgs
  case arguments of
    [configurationFilename] -> runService configurationFilename
    _ -> help
main = do
  arguments <- System.getArgs
  case arguments of
    [configurationFilename] -> runService configurationFilename
    _ -> help