fix: use correct resolution when resizing

1 files changed, 5 insertions, 4 deletions

diff --git a/axis.hs b/axis.hs
index 6866ed5..3158c9d 100644
--- a/axis.hs
+++ b/axis.hs
@@ -200,15 +200,16 @@ main =
         (ds, s') <- stepSession s
         (ex, w') <- stepWire w ds (Right x)
         let x' = either (const "") id ex
+        let restartVideo = resolution' /= resolution
 
-        Control.Monad.when (resolution' /= resolution) $ do
-          let (w, h) = resolution
+        Control.Monad.when restartVideo $ do
+          let (w, h) = resolution'
           screen <- SDL.setVideoMode w h 32 [SDL.SWSurface, SDL.Resizable]
           return ()
 
         let (w, h) = resolution'
             fontSize = chooseFontSize w h
-        font' <- (if (resolution' /= resolution) then SDL.TTF.openFont "LiberationMono-Bold.ttf" fontSize else return font)
+        font' <- (if (restartVideo) then SDL.TTF.openFont "LiberationMono-Bold.ttf" fontSize else return font)
 
         videoSurface <- SDL.getVideoSurface
         videoClipRect <- SDL.getClipRect videoSurface
@@ -234,7 +235,7 @@ main =
           smartDrawKeys False midiKeysDown midiKeysDown' videoSurface font' axis_key_locations axis_key_size
           return ()
 
-        Control.Monad.when (resolution' /= resolution) $ do
+        Control.Monad.when (restartVideo) $ do
           allKeysOFF
           smartDrawKeys False Set.empty midiKeysDown' videoSurface font' axis_key_locations axis_key_size
           return ()