GaloisInc/macaw
1
1
Fork 0
mirror of https://github.com/GaloisInc/macaw.git synced 2024-11-28 01:35:33 +03:00
Code Issues Projects Releases Wiki Activity

Update to reflect dwarf library changes

Browse Source
This commit is contained in:
Joe Hendrix 2016-11-29 18:47:28 -08:00
parent 7b568edc0c
commit 82d9527b5b
No known key found for this signature in database
GPG Key ID: 00F67DE32381DB9F
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Data/Macaw/Dwarf.hs
View File

@ -136,14 +136,8 @@ lookupDIE m k =
resolveDieIDAttribute :: Map DieID v -> DW_ATVAL -> Parser v
resolveDieIDAttribute m v = lookupDIE m =<< attributeAsDieID v
maybeToEither :: String -> Maybe a -> Parser a
maybeToEither _ (Just r) = pure r
maybeToEither msg Nothing = fail msg
attributeAsLang :: DW_ATVAL -> Parser DW_LANG
attributeAsLang v = do
u <- attributeAsUInt v
maybeToEither "Could not parse lang" (get_dw_lang u)
attributeAsLang v = DW_LANG <$> attributeAsUInt v
parseGet :: BS.ByteString -> Get a -> Parser a
parseGet bs m =