1 files changed, 17 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