hypsibius/src/Main.hs

module Main where

import           Brick
import qualified Brick.BChan as Brick
import           Data.Default (def)
import qualified Graphics.Vty as Vty


import qualified Hypsibius.State as State
import qualified Hypsibius.Draw as Draw
import qualified Hypsibius.Event as Event
import qualified Hypsibius.Formats as Formats

trackerApp :: App State.State Event.Event Int
trackerApp = App
  { appDraw         = Draw.draw
  , appChooseCursor = \_ _ -> Nothing
  , appHandleEvent  = Event.handle
  , appStartEvent   = Event.initialize
  , appAttrMap      = \ _ -> attrMap mempty []
  }

main :: IO ()
main = do
  eventChan <- Brick.newBChan 32
  _ <- customMain (Vty.mkVty mempty) (Just eventChan) trackerApp State.newState
  return ()