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