fix: project build error with new haskus-utils-variant version
* New haskus-utils-variant version 3.3 now includes the function "throwSomeE", which was now causing a compile error, since we have a function of the same name in our code. * The function imported from the package and our own version clashed. * Solution was to conditionally include our shim when haskus-utils-variant version < 3.3
This commit is contained in:
parent
c20deceaa8
commit
1850c00e9d
@ -77,8 +77,14 @@ runBothE' a1 a2 = do
|
||||
(_ , VLeft e ) -> throwSomeE e
|
||||
(VRight _, VRight _) -> pure ()
|
||||
|
||||
-- "throwSomeE" function has been upstreamed in haskus-utils-variant-3.3
|
||||
-- So, only conditionally include this shim if
|
||||
-- haskus-utils-variant version is < 3.3
|
||||
|
||||
#if MIN_VERSION_haskus_utils_variant(3,3,0)
|
||||
#else
|
||||
-- | Throw some exception
|
||||
throwSomeE :: forall es' es a m. (Monad m, LiftVariant es' es) => V es' -> Excepts es m a
|
||||
{-# INLINABLE throwSomeE #-}
|
||||
throwSomeE = Excepts . pure . VLeft . liftVariant
|
||||
#endif
|
||||
|
Loading…
Reference in New Issue
Block a user