some refinement

src/Affection.hs

@@ -58,13 +58,13 @@ withAffection AffectionConfig{..} = do
   let (w, h) = (fromIntegral rw, fromIntegral rh)
       stride = fromIntegral (Raw.pixelFormatBytesPerPixel pixelFormat) * w
       cpp    = B.babl_components_per_pixel bablFormat
-  initContainer <- return . (\x -> AffectionData
+  initContainer <- (\x -> AffectionData
     { quitEvent       = False
     , userState       = x
     , drawWindow      = window
     , drawSurface     = surface
     , drawStack       = []
-    }) =<< loadState surface
+    }) <$> loadState surface
   (_, nState) <- runStateT ( A.runState $ do
     preLoop
     liftIO $ SDL.surfaceBlit surface Nothing oldSurf Nothing