getMapInfo :: B.ByteString -> MapType
getMapInfo raw = do
  let res = runGet parseMapInfo raw
    in case res of
         ((Right   mt), _) -> mt
         ((Left   err), _) -> error "Map: unable to parse gamemap"


-- |
-- TODO
getMapInfo :: B.ByteString -> MapType
getMapInfo raw = do
  let res = runGet parseMapInfo raw
    in case res of
         ((Right   mt), _) -> mt
         ((Left   err), _) -> error "Map: unable to parse gamemap"


-- |
-- TODO
getMapInfo raw = do
  let res = runGet parseMapInfo raw
    in case res of
         ((Right   mt), _) -> mt
         ((Left   err), _) -> error "Map: unable to parse gamemap"


-- |
-- TODO