diff options
| author | Griffin Smith <root@gws.fyi> | 2019-09-01T17·54-0400 |
|---|---|---|
| committer | Griffin Smith <root@gws.fyi> | 2019-09-01T17·54-0400 |
| commit | 2fd3e4c9ad28b77a0d167ceefe879ca80ee1ee04 (patch) | |
| tree | 5eff1afdc250b733d8a001b6524afef49a062759 /src/Xanthous/App.hs | |
| parent | 4ef19aa35a6d63a8d9f7b6a7a11ac82c2a525783 (diff) | |
Implement messages
Implement messages almost the same as in the Rust version, only with YAML instead of TOML this time, and a regular old mustache template instead of something handrolled. Besides that, pretty much everything here is the same.
Diffstat (limited to 'src/Xanthous/App.hs')
| -rw-r--r-- | src/Xanthous/App.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Xanthous/App.hs b/src/Xanthous/App.hs index bf5ec68abb0d..ae88a746cec6 100644 --- a/src/Xanthous/App.hs +++ b/src/Xanthous/App.hs @@ -4,7 +4,7 @@ import Xanthous.Prelude import Brick hiding (App) import qualified Brick import Graphics.Vty.Attributes (defAttr) -import Graphics.Vty.Input.Events (Event(EvResize, EvKey)) +import Graphics.Vty.Input.Events (Event(EvKey)) import Xanthous.Game import Xanthous.Game.Draw (drawGame) @@ -32,4 +32,4 @@ handleEvent game _ = continue game handleCommand :: Command -> GameState -> EventM Name (Next GameState) handleCommand Quit = halt handleCommand (Move dir) = continue . (characterPosition %~ move dir) -handleCommand _ = undefined +handleCommand _ = error "unimplemented" |