remove Tools

1 files changed, 5 insertions, 1 deletions

diff --git a/packages/base/src/Internal/Devel.hs b/packages/base/src/Internal/Devel.hs
index 61d2c85..b8e04ef 100644
--- a/packages/base/src/Internal/Devel.hs
+++ b/packages/base/src/Internal/Devel.hs
@@ -11,7 +11,6 @@
 module Internal.Devel where
 
 
-import Internal.Tools ( (//) )
 import Control.Monad ( when )
 import Foreign.C.Types ( CInt )
 --import Foreign.Storable.Complex ()
@@ -19,6 +18,11 @@ import Foreign.Ptr(Ptr)
 import Control.Exception as E ( SomeException, catch )
 
 
+-- | postfix function application (@flip ($)@)
+(//) :: x -> (x -> y) -> y
+infixl 0 //
+(//) = flip ($)
+
 -- hmm..
 ww2 w1 o1 w2 o2 f = w1 o1 $ w2 o2 . f
 ww3 w1 o1 w2 o2 w3 o3 f = w1 o1 $ ww2 w2 o2 w3 o3 . f