summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authortv <tv@shackspace.de>2015-01-04 14:40:21 +0100
committertv <tv@shackspace.de>2015-01-04 14:40:21 +0100
commit9930c942b24bb12d8273b2026f48013a25ad0983 (patch)
treee6d472ca964424560d953c5056d4655702bb12ee
parentcb8229edc65b8eb6e85932efcfbc6f1c44196a39 (diff)
add missing top-level declarations
-rw-r--r--test5.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/test5.hs b/test5.hs
index 6f01838..f1516c3 100644
--- a/test5.hs
+++ b/test5.hs
@@ -128,6 +128,7 @@ startup q0 = do
mapM_ killThread threadIds
+resetTerm :: State -> IO ()
resetTerm State{..} = do
hSetEcho stdin False
hPutStr stdout $ "\ESC[?" ++ intercalate ";" (map show decset) ++ "h"
@@ -255,6 +256,7 @@ mousemap info = \q ->
return q { flashMessage = SGR [38,5,202] $ Plain $ show info }
+defaultMouse1Click :: Monad m => Int -> State -> m State
defaultMouse1Click y q@State{..} = do
let linearClickPos =
let i = (y - length headBuffer + yoffset) - 1 {-zero-based-}