summaryrefslogtreecommitdiffstats
path: root/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Main.hs')
-rw-r--r--Main.hs9
1 files changed, 6 insertions, 3 deletions
diff --git a/Main.hs b/Main.hs
index 395db91..4f15418 100644
--- a/Main.hs
+++ b/Main.hs
@@ -45,10 +45,13 @@ main = do
-- WINCH
-- TODO installHandler 28 (Catch $ ioctl 0 ...) Nothing
- modeRef <- newIORef InsertMode
- lock <- newMVar emptyBuffer
+ let m = InsertMode
+ b = ("", "")
- renderInputLine InsertMode emptyBuffer
+ modeRef <- newIORef m
+ lock <- newMVar b
+
+ renderInputLine m b
hFlush stdout
forkIO $ dateThread 1000000 modeRef lock