From 53f7a2af0e7dfaf434391ee2f8848f1ea36e2970 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
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 ->