From 9930c942b24bb12d8273b2026f48013a25ad0983 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Sun, 4 Jan 2015 14:40:21 +0100
Subject: add missing top-level declarations

---
 test5.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'test5.hs')

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-}
-- 
cgit v1.2.3