diff options
-rw-r--r-- | Main.hs | 9 |
1 files changed, 6 insertions, 3 deletions
@@ -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 |