github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-20 13:21:59 +03:00
Code Issues Projects Releases Wiki Activity

FatalException doesn't have to be in there

Browse Source
This commit is contained in:
Patrick Thomson 2019-01-25 00:19:06 -05:00
parent 13ac7b4942
commit 55d22b1a0e
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Prologue.hs
View File

@ -1,7 +1,6 @@
{-# LANGUAGE UndecidableInstances #-} {-# LANGUAGE UndecidableInstances #-}
module Prologue module Prologue
( module X ( module X
, eitherA
, eitherM , eitherM
, foldMapA , foldMapA
, maybeM , maybeM
@ -82,7 +81,3 @@ maybeM f = maybe f pure
eitherM :: Applicative f => (a -> f b) -> Either a b -> f b eitherM :: Applicative f => (a -> f b) -> Either a b -> f b
eitherM f = either f pure eitherM f = either f pure
-- Promote a function to either-applicatives.
eitherA :: Applicative f => (b -> f (Either a c)) -> Either a b -> f (Either a c)
eitherA = either (pure . Left)