Back out dependency on tuples

Author: MichaelXavier

README.md

@@ -13,7 +13,7 @@
 
     modifyRef :: forall s r. RefVal s -> (s -> s) -> Eff (ref :: Ref | r) Unit
 
-    modifyRef' :: forall s b r. RefVal s -> (s -> Tuple s b) -> Eff (ref :: Ref | r) b
+    modifyRef' :: forall s b r. RefVal s -> (s -> { retVal :: b, newState :: s }) -> Eff (ref :: Ref | r) b
 
     newRef :: forall s r. s -> Eff (ref :: Ref | r) (RefVal s)
 

bower.json

@@ -16,8 +16,5 @@
     "bower.json",
     "Gruntfile.js",
     "package.json"
-  ],
-  "dependencies": {
-    "purescript-tuples": "~0.2.1"
-  }
+  ]
 }

src/Control/Monad/Eff/Ref.purs

@@ -1,7 +1,6 @@
 module Control.Monad.Eff.Ref where
 
 import Control.Monad.Eff
-import Data.Tuple
 
 foreign import data Ref :: !
 
@@ -34,10 +33,10 @@ foreign import modifyRef' """
       };
     };
   }
-""" :: forall s b r. RefVal s -> (s -> Tuple s b) -> Eff (ref :: Ref | r) b
+""" :: forall s b r. RefVal s -> (s -> {newState :: s, retVal :: b}) -> Eff (ref :: Ref | r) b
 
 modifyRef :: forall s r. RefVal s -> (s -> s) -> Eff (ref :: Ref | r) Unit
-modifyRef ref f = modifyRef' ref (\s -> Tuple (f s) unit)
+modifyRef ref f = modifyRef' ref (\s -> {newState: f s, retVal: unit})
 
 foreign import writeRef """
   function writeRef(ref) {