From a3fe5a1d8b7a18a46dac92f9dd7469d4d06aef47 Mon Sep 17 00:00:00 2001
From: tpajenka <tpajenka@foo>
Date: Thu, 1 May 2014 19:12:01 +0200
Subject: [PATCH] compiler warning and HLint remarks

---
 src/UI/Callbacks.hs    | 6 +++---
 src/UI/UIOperations.hs | 7 +++----
 2 files changed, 6 insertions(+), 7 deletions(-)

diff --git a/src/UI/Callbacks.hs b/src/UI/Callbacks.hs
index 58e2e59..5afe011 100644
--- a/src/UI/Callbacks.hs
+++ b/src/UI/Callbacks.hs
@@ -30,7 +30,8 @@ createGUI = (Map.fromList [ (UIId 0, GUIAnyP $ GUIPanel $ GUIContainer 0 0 0 0 [
                           ], [UIId 0])
          
 getGUI :: Map.HashMap UIId (GUIAny Pioneers) -> [GUIAny Pioneers]
-getGUI hmap = Map.elems hmap
+getGUI = Map.elems
+{-# INLINE getGUI #-}
 
 getRootIds :: Pioneers [UIId]
 getRootIds = do
@@ -60,7 +61,7 @@ clickHandler (Pixel x y) = do
   case hits of
        [] -> liftIO $ putStrLn $ unwords ["button press on (",show x,",",show y,")"]
        _  -> do
-         changes <- sequence $ map (\uid -> do
+         changes <- mapM (\uid -> do
            let w = toGUIAny hMap uid
            short <- getShorthand w
            bound <- getBoundary w
@@ -121,7 +122,6 @@ copyGUI tex widget = do
                                 (GUIAnyC _)   -> [255,0,0,128]
                                 (GUIAnyB _ _) -> [255,255,0,255]
                                 (GUIAnyP _)   -> [128,128,128,128]
-                                _             -> [255,0,255,255]
                         liftIO $ allocaBytes (wWidth*wHeight*4) $ \ptr -> do
                                 --copy data into C-Array
                                 pokeArray ptr (genColorData (wWidth*wHeight) color)
diff --git a/src/UI/UIOperations.hs b/src/UI/UIOperations.hs
index a6085d0..fd02aaa 100644
--- a/src/UI/UIOperations.hs
+++ b/src/UI/UIOperations.hs
@@ -10,15 +10,14 @@ import UI.UIClasses
 
 defaultUIState :: UIButtonState
 defaultUIState = UIButtonState False False False False False False
+{-# INLINE defaultUIState #-}
 
 toGUIAny :: Map.HashMap UIId (GUIAny m) -> UIId -> GUIAny m
-toGUIAny m uid = case Map.lookup uid m of
-                     Just w  -> w
-                     Nothing -> error "map does not contain requested key" --TODO: better error handling
+toGUIAny m uid = fromMaybe (error "map does not contain requested key") (Map.lookup uid m)
 {-# INLINE toGUIAny #-}
 
 toGUIAnys :: Map.HashMap UIId (GUIAny m) -> [UIId] -> [GUIAny m]
-toGUIAnys m ids = mapMaybe (flip Map.lookup m) ids
+toGUIAnys m = mapMaybe (flip Map.lookup m)
 {-# INLINE toGUIAnys #-}
 -- TODO: check for missing components?