diff options
| author | Kjetil Orbekk <kjetil.orbekk@gmail.com> | 2016-02-24 03:52:12 +0100 |
|---|---|---|
| committer | Kjetil Orbekk <kjetil.orbekk@gmail.com> | 2016-02-24 03:52:12 +0100 |
| commit | b9d0c16ae87d37f26f94d24933b8e9e72c93d50e (patch) | |
| tree | 4351c72b6edab5724f3965435f9ce2558f8f5574 | |
| parent | 15eef06c3619a6f723fd6d9b1638c436b6f98c8f (diff) | |
| -rw-r--r-- | app/Main.hs | 18 | ||||
| -rw-r--r-- | rougelike.cabal | 1 |
2 files changed, 18 insertions, 1 deletions
diff --git a/app/Main.hs b/app/Main.hs index 9d74405..69afe0d 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -1,6 +1,22 @@ module Main where +import qualified UI.HSCurses.Curses as Curses +import qualified UI.HSCurses.Widgets as W +import qualified UI.HSCurses.CursesHelper as CursesH + import Lib +mkTextWidget :: String -> W.TextWidget +mkTextWidget m = W.newTextWidget options m + where options = W.defaultTWOptions + { W.twopt_size = W.TWSizeFixed (1, length m) } + main :: IO () -main = undefined +main = do + CursesH.start + let w = mkTextWidget "Hello, Curses!" + size <- Curses.scrSize + W.draw (0, 0) (1, 14) W.DHNormal w + Curses.refresh + Curses.getCh + CursesH.end diff --git a/rougelike.cabal b/rougelike.cabal index 56f7ecd..6c202e1 100644 --- a/rougelike.cabal +++ b/rougelike.cabal @@ -32,6 +32,7 @@ executable rougelike-exe ghc-options: -threaded -rtsopts -with-rtsopts=-N build-depends: base , rougelike + , hscurses default-language: Haskell2010 test-suite rougelike-test |