module Data.Either.Extras
  ( unsafeFromEither
  ) where

unsafeFromEither :: Either String a -> a
unsafeFromEither :: Either String a -> a
unsafeFromEither (Left String
err)    = String -> a
forall a. HasCallStack => String -> a
error String
err
unsafeFromEither (Right a
value) = a
value