-----------------------------------------------------------------------------
-- |
-- Module      :  Main
  Copyright    :   ( c )  
  License      :   MIT
--
  Maintainer   :     <  >
-- Stability   :  experimental
--
-----------------------------------------------------------------------------
{-# LANGUAGE OverloadedStrings #-}
module Main (main) where

import Helen.Core
import Helen.Core.OptParse
import Helen.Core.Types

main :: IO ()
main = do
    sets <- getSettings
    putStrLn $ "Helen is running on " ++ settingsHost sets ++ ":" ++ show (settingsPort sets)
    helen <- initHelen sets
    _ <- runHelenProgram helen program
    putStrLn "Helen finished."

---------------------------------------------------------------------------
 |
 Module      :  Main

 Stability   :  experimental

---------------------------------------------------------------------------
# LANGUAGE OverloadedStrings #
  Copyright    :   ( c )  
  License      :   MIT
  Maintainer   :     <  >
module Main (main) where

import Helen.Core
import Helen.Core.OptParse
import Helen.Core.Types

main :: IO ()
main = do
    sets <- getSettings
    putStrLn $ "Helen is running on " ++ settingsHost sets ++ ":" ++ show (settingsPort sets)
    helen <- initHelen sets
    _ <- runHelenProgram helen program
    putStrLn "Helen finished."
