evalTR _ w sr (QROneTile n) = case lookup tr $ wTiles w of
  Nothing -> []
  Just _  -> [tr]
  where
    tr = mkTileFloatRef sr n
evalTR _ w sr (QROneTile n) = case lookup tr $ wTiles w of
  Nothing -> []
  Just _  -> [tr]
  where
    tr = mkTileFloatRef sr n
evalTR _ w sr (QROneTile n) = case lookup tr $ wTiles w of
  Nothing -> []
  Just _  -> [tr]
  where
    tr = mkTileFloatRef sr n