module Bio.Sequence.Utilities
  ( unsafeEither
  ) where

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

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