module StaticLS.Except where

import Control.Error.Util
import Control.Monad.Trans.Except

exceptToMaybe :: Except a b -> Maybe b
exceptToMaybe :: forall a b. Except a b -> Maybe b
exceptToMaybe = Either a b -> Maybe b
forall a b. Either a b -> Maybe b
hush (Either a b -> Maybe b)
-> (Except a b -> Either a b) -> Except a b -> Maybe b
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Except a b -> Either a b
forall e a. Except e a -> Either e a
runExcept