cardano-crypto-1.3.0: src/Cardano/Internal/Compat.hs

{-# LANGUAGE CPP #-}
module Cardano.Internal.Compat (fromRight) where
#if MIN_VERSION_base(4, 10, 0)
import Data.Either(fromRight)
#endif

#if !MIN_VERSION_base(4, 10, 0)
fromRight :: b -> Either a b -> b
fromRight _ (Right b) = b
fromRight b _         = b
#endif