git.iko.soy/reflex-dom
on develop help sign in
test/hydration: Write out MonadRef instance that GHC 8.0 can't derive
fd14629Ali Abrar
reflex-dom-core/test/hydration.hs+8−3
compare with develop
unifiedsplit
@@ -35,6 +35,7 @@ import Data.GADT.Compare.TH
35import Data.GADT.Show.TH
35import Data.GADT.Show.TH
36import Data.IORef (IORef)
36import Data.IORef (IORef)
37import Data.Maybe
37import Data.Maybe
38+import Data.Monoid
38import Data.Proxy
39import Data.Proxy
39import Data.Text (Text)
40import Data.Text (Text)
40import Language.Javascript.JSaddle (syncPoint, liftJSM)
41import Language.Javascript.JSaddle (syncPoint, liftJSM)
@@ -54,9 +55,9 @@ import System.Process
54import qualified Test.HUnit as HUnit (assertEqual, assertFailure)
55import qualified Test.HUnit as HUnit (assertEqual, assertFailure)
55import qualified Test.Hspec as H
56import qualified Test.Hspec as H
56import Test.Hspec (xit)
57import Test.Hspec (xit)
57−import Test.Hspec.WebDriver hiding (runWD, click, uploadFile)
58+import Test.Hspec.WebDriver hiding (runWD, click, uploadFile, WD)
58import qualified Test.Hspec.WebDriver as WD
59import qualified Test.Hspec.WebDriver as WD
59−import Test.WebDriver (WD)
60+import Test.WebDriver (WD(..))
60
61
61import qualified Data.ByteString.Lazy as LBS
62import qualified Data.ByteString.Lazy as LBS
62import qualified Data.Dependent.Map as DMap
63import qualified Data.Dependent.Map as DMap
@@ -77,7 +78,11 @@ seleniumPort = 8000
77jsaddlePort = 8001
78jsaddlePort = 8001
78
79
79-- TODO Remove orphan
80-- 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
81
86
82assertEqual :: (MonadIO m, Eq a, Show a) => String -> a -> a -> m ()
87assertEqual :: (MonadIO m, Eq a, Show a) => String -> a -> a -> m ()
83assertEqual a b = liftIO . HUnit.assertEqual a b
88assertEqual a b = liftIO . HUnit.assertEqual a b