-- |
--
getTileInfo :: Get [Word8]
getTileInfo = do
  e <- isEmpty
  if e
    then return []
    else do
      ti   <- getWord8
      rest <- getTileInfo
      return $ ti : rest


-- |
--
getTileInfo :: Get [Word8]
getTileInfo = do
  e <- isEmpty
  if e
    then return []
    else do
      ti   <- getWord8
      rest <- getTileInfo
      return $ ti : rest


-- |
--
getTileInfo = do
  e <- isEmpty
  if e
    then return []
    else do
      ti   <- getWord8
      rest <- getTileInfo
      return $ ti : rest


-- |
--