getHeader :: B.ByteString -> MapFileType
getHeader raw = do
  let res = runGet parseHeader raw
    in case res of
         ((Right mft), _) -> mft
         ((Left  err), _) -> error "Map: unable to parse header"


-- |
--
getHeader :: B.ByteString -> MapFileType
getHeader raw = do
  let res = runGet parseHeader raw
    in case res of
         ((Right mft), _) -> mft
         ((Left  err), _) -> error "Map: unable to parse header"


-- |
--
getHeader raw = do
  let res = runGet parseHeader raw
    in case res of
         ((Right mft), _) -> mft
         ((Left  err), _) -> error "Map: unable to parse header"


-- |
--