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