nek0/haskelloids
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

linted again

Browse source
This commit is contained in:
nek0 2017-12-22 09:02:20 +01:00
parent 8104c636cd
commit 53f7a2af0e
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Main.hs
View file

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