From bd5f8f1b2375ed0b4097330c244c3ba7fa775727 Mon Sep 17 00:00:00 2001
From: Stephen Diehl <stephen.m.diehl@gmail.com>
Date: Sat, 9 Apr 2016 19:25:55 -0400
Subject: [PATCH] fix backwards compart for ($!)

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

diff --git a/src/Protolude.hs b/src/Protolude.hs
index edf505fc8..98f4d390b 100644
--- a/src/Protolude.hs
+++ b/src/Protolude.hs
@@ -6,6 +6,7 @@ module Protolude (
   identity,
   bool,
   (&),
+  ($!),
   uncons,
   applyN,
   print,
@@ -160,7 +161,6 @@ import GHC.Exts as X (
   )
 import GHC.Base as X (
     (++)
-  , ($!)
   )
 
 -- Genericss
@@ -247,6 +247,11 @@ infixl 1 &
 (&) :: a -> (a -> b) -> b
 x & f = f x
 
+infixr 0 $!
+
+($!) :: (a -> b) -> a -> b
+($!) = (P.$!)
+
 bool :: a -> a -> Bool -> a
 bool f t b = if b then t else f