From d0e81532af11e4842196c23dbb3cf73f4af081b3 Mon Sep 17 00:00:00 2001
From: Stephen Diehl <stephen.m.diehl@gmail.com>
Date: Sun, 1 Jan 2017 23:43:43 +0000
Subject: [PATCH] Use Data.Function (&) if base>4.8, fixes #33

---
 src/Protolude.hs | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/Protolude.hs b/src/Protolude.hs
index c292626f0..45394d1d2 100644
--- a/src/Protolude.hs
+++ b/src/Protolude.hs
@@ -10,7 +10,6 @@ module Protolude (
   module Base,
   identity,
   map,
-  (&),
   uncons,
   unsnoc,
   applyN,
@@ -24,6 +23,9 @@ module Protolude (
   guardedA,
   LText,
   LByteString,
+#if !MIN_VERSION_base(4,8,0)
+  (&),
+#endif
 ) where
 
 import List as X
@@ -305,6 +307,9 @@ import Data.Function as X (
   , flip
   , fix
   , on
+#if ( __GLASGOW_HASKELL__ >= 800 )
+  , (&)
+#endif
   )
 
 -- Genericss
@@ -419,10 +424,13 @@ import Text.Read as X (
 type LText = Data.Text.Lazy.Text
 type LByteString = Data.ByteString.Lazy.ByteString
 
+
+#if !MIN_VERSION_base(4,8,0)
 infixl 1 &
 
 (&) :: a -> (a -> b) -> b
 x & f = f x
+#endif
 
 identity :: a -> a
 identity x = x