diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-04-07 18:17:32 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-04-07 18:17:32 -0400 |
| commit | 2f3c1f9fee8d6720b0180f686b0691dfcede0ba5 (patch) | |
| tree | cf1e31f587833cb4b4ed342f5cacb854027df650 /Triangle.hs | |
| parent | c155a1d9b8ca4b2cc5f327580847ad8f6249c1b6 (diff) | |
Minor refactor.
Diffstat (limited to 'Triangle.hs')
| -rw-r--r-- | Triangle.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 | |||
| 112 | return () | 112 | return () |
| 113 | 113 | ||
| 114 | 114 | ||
| 115 | unrealize :: GLArea -> IO () | 115 | unrealize :: MVar State -> GLArea -> IO () |
| 116 | unrealize _ = do | 116 | unrealize _ _ = do |
| 117 | putStrLn "unrealize!" | 117 | putStrLn "unrealize!" |