phoityne-0.0.3.0: app/Main.hs

{-# LANGUAGE LambdaCase          #-}
{-# LANGUAGE ScopedTypeVariables #-}

module Main where

-- モジュール
import qualified Phoityne.IO.Main as M

-- システム
import System.Exit

-- |
--  メイン
--
main :: IO ()
main = do
  M.run >>= \case
    0 -> exitSuccess
    c -> exitWith . ExitFailure $ c