@@ -35,7 +35,6 @@ import Data.GADT.Compare.TH
3535import Data.GADT.Show.TH
3636import Data.IORef (IORef)
3737import Data.Maybe
38−import Data.Monoid
3938import Data.Proxy
4039import Data.Text (Text)
4140import Language.Javascript.JSaddle (syncPoint, liftJSM)
@@ -54,6 +53,7 @@ import System.IO.Temp
5453import System.Process
5554import qualified Test.HUnit as HUnit (assertEqual, assertFailure)
5655import qualified Test.Hspec as H
56+import qualified Test.Hspec.Core.Spec as H
5757import Test.Hspec (xit)
5858import Test.Hspec.WebDriver hiding (runWD, click, uploadFile, WD)
5959import qualified Test.Hspec.WebDriver as WD
@@ -812,7 +812,7 @@ tests withDebugging wdConfig caps _selenium = do
812812 , el "span" . text <$> replace
813813 ]
814814 it "can be nested in postBuild widget" $ runWD $ do
815− replaceChan <- liftIO newChan
815+ replaceChan :: Chan Text <- liftIO newChan
816816 let setup = findElemWithRetry $ WD.ByTag "div"
817817 check ssr = do
818818 -- Check that the original element still exists and has the correct text
@@ -1153,6 +1153,9 @@ tests withDebugging wdConfig caps _selenium = do
11531153 xs <- WD.findElems (WD.ByTag "li")
11541154 checkInitialItems dm xs
11551155 pure xs
1156+ moveSpec
1157+ :: (DMap Key2 Identity -> (WD.Element -> Chan (PatchDMapWithMove Key2 Identity) -> WD ()) -> WD ())
1158+ -> H.SpecM (WdTestSession ()) ()
11561159 moveSpec testMove = do
11571160 it "can insert an item" $ runWD $ testMove (DMap.fromList [Key2_Int 1 ==> 1, Key2_Int 3 ==> 3]) $ \body chan -> do
11581161 shouldContainText (T.strip $ T.unlines ["i11","i33"]) body
@@ -1192,7 +1195,7 @@ tests withDebugging wdConfig caps _selenium = do
11921195 describe "hydration/immediate" $ moveSpec $ \initMap test -> do
11931196 chan <- liftIO newChan
11941197 replace <- liftIO newChan
1195− lock <- liftIO newEmptyMVar
1198+ lock :: MVar () <- liftIO newEmptyMVar
11961199 let check = do
11971200 liftIO $ do
11981201 writeChan replace ()