From 53f7a2af0e7dfaf434391ee2f8848f1ea36e2970 Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 22 Dec 2017 09:02:20 +0100 Subject: [PATCH] linted again --- src/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 ->