From 14e3eb094ba90293682fda0990328392afa6fe43 Mon Sep 17 00:00:00 2001
From: Neil Mitchell <ndmitchell@gmail.com>
Date: Wed, 26 Oct 2016 06:59:11 +0100
Subject: [PATCH] #40, require extra-1.5.1

---
 bake.cabal           | 2 +-
 src/General/Extra.hs | 3 ---
 2 files changed, 1 insertion(+), 4 deletions(-)

diff --git a/bake.cabal b/bake.cabal
index 23da40d..9d956d9 100755
--- a/bake.cabal
+++ b/bake.cabal
@@ -62,7 +62,7 @@ library
         disk-free-space,
         unordered-containers,
         smtp-mail,
-        extra >= 1.1,
+        extra >= 1.5.1,
         wai >= 3.0.1,
         warp >= 3.0
 
diff --git a/src/General/Extra.hs b/src/General/Extra.hs
index 94b5b16..34d3767 100644
--- a/src/General/Extra.hs
+++ b/src/General/Extra.hs
@@ -115,9 +115,6 @@ createDir prefix info = do
     return name
 
 
-eitherToMaybe :: Either a b -> Maybe b
-eitherToMaybe = either (const Nothing) Just
-
 pick :: [a] -> IO a
 pick xs = randomRIO (0, (length xs - 1)) >>= return . (xs !!)