diff --git a/src/Main.hs b/src/Main.hs index 6f8939f..0a5b3ae 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -48,8 +48,8 @@ pre = do _ <- partSubscribe (subWindow subs) $ \msg -> case msg of MsgWindowResize _ _ (V2 w h) -> do liftIO $ logIO A.Debug "Window has been resized" - let nw = floor $ (fromIntegral h * (800/600) :: Double) - dw = floor $ ((fromIntegral w - fromIntegral nw) / 2 :: Double) + let nw = floor (fromIntegral h * (800/600) :: Double) + dw = floor ((fromIntegral w - fromIntegral nw) / 2 :: Double) GL.viewport $= (GL.Position dw 0, GL.Size nw h) _ -> return () _ <- partSubscribe (subKeyboard subs) $ \kbdev ->