src/Main.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

module Main where

import Xanthous.Prelude
import Brick

import Xanthous.Game (getInitialState)
import Xanthous.App (makeApp)

ui :: Widget ()
ui = str "Hello, world!"

main :: IO ()
main = do
  app <- makeApp
  let initialState = getInitialState
  _ <- defaultMain app initialState
  pure ()