@@ -35,6 +35,7 @@ import Data.GADT.Compare.TH
3535import Data.GADT.Show.TH
3636import Data.IORef (IORef)
3737import Data.Maybe
38+import Data.Monoid
3839import Data.Proxy
3940import Data.Text (Text)
4041import Language.Javascript.JSaddle (syncPoint, liftJSM)
@@ -54,9 +55,9 @@ import System.Process
5455import qualified Test.HUnit as HUnit (assertEqual, assertFailure)
5556import qualified Test.Hspec as H
5657import Test.Hspec (xit)
57−import Test.Hspec.WebDriver hiding (runWD, click, uploadFile)
58+import Test.Hspec.WebDriver hiding (runWD, click, uploadFile, WD)
5859import qualified Test.Hspec.WebDriver as WD
59−import Test.WebDriver (WD)
60+import Test.WebDriver (WD(..))
6061
6162import qualified Data.ByteString.Lazy as LBS
6263import qualified Data.Dependent.Map as DMap
@@ -77,7 +78,11 @@ seleniumPort = 8000
7778jsaddlePort = 8001
7879
7980-- TODO Remove orphan
80−deriving instance MonadRef WD
81+instance MonadRef WD where
82+ type Ref WD = Ref IO
83+ newRef = WD . newRef
84+ readRef = WD . readRef
85+ writeRef r = WD . writeRef r
8186
8287assertEqual :: (MonadIO m, Eq a, Show a) => String -> a -> a -> m ()
8388assertEqual a b = liftIO . HUnit.assertEqual a b