An @-sign in a box, in haskell

Initial commit of a Haskell version of Xanthous, written using Brick and
built with Nix.

This is so much nicer and so much easier

1 files changed, 21 insertions, 0 deletions

diff --git a/src/Xanthous/App.hs b/src/Xanthous/App.hs
new file mode 100644
index 000000000000..5c0383c38e19
--- /dev/null
+++ b/src/Xanthous/App.hs
@@ -0,0 +1,21 @@
+module Xanthous.App (makeApp) where
+
+import Xanthous.Prelude
+import Brick hiding (App)
+import qualified Brick
+import Graphics.Vty.Attributes (defAttr)
+
+import Xanthous.Game
+import Xanthous.Game.Draw (drawGame)
+import Xanthous.Resource (Name)
+
+type App = Brick.App GameState () Name
+
+makeApp :: IO App
+makeApp = pure $ Brick.App
+  { appDraw = drawGame
+  , appChooseCursor = const headMay
+  , appHandleEvent = resizeOrQuit
+  , appStartEvent = pure
+  , appAttrMap = const $ attrMap defAttr []
+  }