started creating a GUI overlay image

Pioneers.cabal

@@ -11,12 +11,14 @@ executable Pioneers
   } else {
     ghc-options:     -Wall -Odph -rtsopts -threaded -fno-liberate-case -funfolding-use-threshold1000 -funfolding-keeness-factor1000 -optlo-O3 -fllvm
   }
-  other-modules:   
+  other-module
                    Map.Map,
                    Render.Misc,
                    Render.Render,
                    Render.RenderObject,
                    UI.Callbacks,
+                   Types,
+                   UI.SurfaceOverlay
                    Types
   main-is:         Main.hs
   build-depends:   

src/Main.hs

@@ -40,6 +40,7 @@ import           Render.Misc                          (checkError,
 import           Render.Render                        (initRendering,
                                                        initShader)
 import           UI.Callbacks
+import           UI.GUIOverlay
 import           Types
 
 import qualified Debug.Trace                          as D (trace)
@@ -53,7 +54,7 @@ main = do
                                                                              ,WindowResizable  -- and resizable 
                                                                              ,WindowInputFocus -- focused (=> active)
                                                                              ,WindowMouseFocus -- Mouse into it
-                                                                             ,WindowInputGrabbed-- never let go of input (KB/Mouse)
+                                                                             --,WindowInputGrabbed-- never let go of input (KB/Mouse)
                                                                              ] $ \window -> do
         withOpenGL window $ do
         (Size fbWidth fbHeight) <- glGetDrawableSize window

src/UI/GUIOverlay.hs

@@ -0,0 +1,20 @@
+module UI.GUIOverlay where
+
+import Data.Int
+import Graphics.UI.SDL.Surface
+import Graphics.UI.SDL.Color
+import Graphics.UI.SDL.Rect
+import Graphics.UI.SDL.Types
+
+--createRGBSurface :: Int32 -> Int32 -> Int32 -> Word32 -> Word32 -> Word32 -> Word32 -> IO Surface
+--                    width    height   depth    rFilter   gFilter   bFilter   aFilter
+
+updateGUI :: Int32 -> Int32 -> IO Surface
+updateGUI width height = do
+      overlay <- createRGBSurface width height 32 0xFF000000 0x00FF0000 0x0000FF00 0x000000FF
+      fillRect overlay (Rect 10 10 400 300) (Color 255 0 128 255)
+      return overlay
+      
+      
+--createTextureFromSurface :: Renderer -> Surface -> IO Texture
+--createSoftwareRenderer :: Surface -> IO Renderer