module Bio.Sequence.Utilities
  ( unsafeEither
  ) where

import           Data.Text (Text)
import qualified Data.Text as T (unpack)

unsafeEither :: Either Text a -> a
unsafeEither :: forall a. Either Text a -> a
unsafeEither = forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
either (forall a. HasCallStack => [Char] -> a
error forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> [Char]
T.unpack) forall a. a -> a
id