module GHC.Debug.Utils where

import Data.Binary.Get
import Data.ByteString.Lazy
import GHC.Stack

runGet_ :: HasCallStack => Get a -> ByteString -> a
runGet_ :: forall a. HasCallStack => Get a -> ByteString -> a
runGet_ Get a
g ByteString
b = case Get a
-> ByteString
-> Either
     (ByteString, ByteOffset, String) (ByteString, ByteOffset, a)
forall a.
Get a
-> ByteString
-> Either
     (ByteString, ByteOffset, String) (ByteString, ByteOffset, a)
runGetOrFail Get a
g ByteString
b of
                Left (ByteString
_, ByteOffset
_, String
err) -> String -> a
forall a. HasCallStack => String -> a
error String
err
                Right (ByteString
_, ByteOffset
_, a
r) -> a
r