From 55d22b1a0e8c547fc402d54ccf6788df30e141e2 Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Fri, 25 Jan 2019 00:19:06 -0500 Subject: [PATCH] FatalException doesn't have to be in there --- src/Prologue.hs | 5 ----- 1 file changed, 5 deletions(-) diff --git a/src/Prologue.hs b/src/Prologue.hs index ba5eb64eb..f1cf5eed7 100644 --- a/src/Prologue.hs +++ b/src/Prologue.hs @@ -1,7 +1,6 @@ {-# LANGUAGE UndecidableInstances #-} module Prologue ( module X - , eitherA , eitherM , foldMapA , maybeM @@ -82,7 +81,3 @@ maybeM f = maybe f pure eitherM :: Applicative f => (a -> f b) -> Either a b -> f b 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)