renamed modules after restructuring UI data

This commit is contained in:
tpajenka
2014-05-03 14:51:24 +02:00
parent ca51c23650
commit ad0e569537
5 changed files with 10 additions and 11 deletions

View File

@ -6,7 +6,7 @@ import qualified Data.HashMap.Strict as Map
import Data.Maybe
import Types
import UI.UIBaseData
import UI.UIBase
toGUIAny :: Map.HashMap UIId (GUIWidget m) -> UIId -> GUIWidget m
toGUIAny m uid = fromMaybe (error "map does not contain requested key") (Map.lookup uid m)