parseHeader :: Get MapFileType
parseHeader = do
  e <- isEmpty
  if e
    then return $ MapFileType undefined
                         undefined
                         undefined
    else do
      tag <- getWord16le
      ofs <- replicateM numHeaders getWord32le
      tif <- getTileInfo

      return $ MapFileType tag
                      (map fromIntegral ofs)
                      tif


-- |
--
parseHeader :: Get MapFileType
parseHeader = do
  e <- isEmpty
  if e
    then return $ MapFileType undefined
                         undefined
                         undefined
    else do
      tag <- getWord16le
      ofs <- replicateM numHeaders getWord32le
      tif <- getTileInfo

      return $ MapFileType tag
                      (map fromIntegral ofs)
                      tif


-- |
--
parseHeader = do
  e <- isEmpty
  if e
    then return $ MapFileType undefined
                         undefined
                         undefined
    else do
      tag <- getWord16le
      ofs <- replicateM numHeaders getWord32le
      tif <- getTileInfo

      return $ MapFileType tag
                      (map fromIntegral ofs)
                      tif


-- |
--