Skip to content
Browse files

Fix bug where buildings were invisible.

  • Loading branch information...
1 parent 3138d25 commit 706f79802dad3d5a6d82997c3b5096ba336d9f22 @clanehin committed Mar 31, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 roguestar-gl/src/AnimationBuildings.hs
View
2 roguestar-gl/src/AnimationBuildings.hs
@@ -24,7 +24,7 @@ type BuildingAvatar e m = FRP e (BuildingAvatarSwitch m) () ()
buildingAvatar :: (FRPModel m) => BuildingAvatar e m
buildingAvatar = proc () ->
do objectTypeGuard (== "building") -< ()
- m_building_type <- objectDetailsLookup ThisObject "building-type" -< ()
+ m_building_type <- objectDetailsLookup ThisObject "building-shape" -< ()
switchContinue -< (fmap switchTo m_building_type,())
returnA -< ()
where switchTo "monolith" = simpleBuildingAvatar Monolith

0 comments on commit 706f798

Please sign in to comment.
Something went wrong with that request. Please try again.