Add a high-level binding for setWindowIcon (#243)

Author: Dretch

src/SDL/Video.hs

@@ -33,6 +33,7 @@ module SDL.Video
   , setWindowMode
   , getWindowAbsolutePosition
   , getWindowBordersSize
+  , setWindowIcon
   , setWindowPosition
   , windowTitle
   , windowData
@@ -296,6 +297,11 @@ setWindowMode (Window w) mode =
       Minimized -> Raw.minimizeWindow w >> return 0
       Windowed -> Raw.setWindowFullscreen w 0 <* Raw.restoreWindow w
 
+-- | Set the icon for a window.
+setWindowIcon :: MonadIO m => Window -> Surface -> m ()
+setWindowIcon (Window win) (Surface sfc _) =
+  Raw.setWindowIcon win sfc
+
 -- | Set the position of the window.
 setWindowPosition :: MonadIO m => Window -> WindowPosition -> m ()
 setWindowPosition (Window w) pos = case pos of