From 298ad4076be414911d18a36d9ead1035c105165f Mon Sep 17 00:00:00 2001 From: nek0 Date: Tue, 8 Nov 2016 04:34:26 +0100 Subject: [PATCH] prettyfiing --- src/Affection.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Affection.hs b/src/Affection.hs index f40438f..362427f 100644 --- a/src/Affection.hs +++ b/src/Affection.hs @@ -41,7 +41,8 @@ withAffection conf@AffectionConfig{..} = do execTime <- newMVar =<< getTime Monotonic window <- SDL.createWindow windowTitle windowConfig oldSurf@(SDL.Surface ptr vect) <- SDL.getWindowSurface window - surface <- (\x -> return $ SDL.Surface x Nothing) =<< Raw.convertSurfaceFormat ptr Raw.SDL_PIXELFORMAT_ABGR8888 0 + surface <- (\x -> return $ SDL.Surface x Nothing) =<< + Raw.convertSurfaceFormat ptr Raw.SDL_PIXELFORMAT_ABGR8888 0 initContainer <- return . (\x -> AffectionData { quitEvent = False , userState = x