From 2f3c1f9fee8d6720b0180f686b0691dfcede0ba5 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Sun, 7 Apr 2019 18:17:32 -0400
Subject: Minor refactor.

---
 Triangle.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Triangle.hs')

diff --git a/Triangle.hs b/Triangle.hs
index cf26fe6..175446c 100644
--- a/Triangle.hs
+++ b/Triangle.hs
@@ -112,6 +112,6 @@ realize svar w = do
         return ()
 
 
-unrealize :: GLArea -> IO ()
-unrealize _ = do
+unrealize :: MVar State -> GLArea -> IO ()
+unrealize _ _ = do
     putStrLn "unrealize!"
-- 
cgit v1.2.3