@@ -1,12 +1,11 @@
1−{-# language OverloadedStrings #-}
1+{-# LANGUAGE OverloadedStrings #-}
2+{-# LANGUAGE ScopedTypeVariables #-}
23
34module Servant.ReflexSpec where
45
56import Control.Concurrent (threadDelay)
67import Control.Monad.IO.Class (liftIO)
7−import Data.Monoid ((<>))
88import qualified Data.Text as T
9−import Data.Foldable
109import Test.WebDriver.Commands.Wait
1110import Test.Hspec.WebDriver
1211
@@ -48,9 +47,9 @@ spec = do
4847 it "can get an int or unit from the API" $ runWD $ do
4948 let outEl = ByCSS "div.unit-int-response p"
5049 clickingShouldCause (ByCSS "div.int-button > button") outEl 0.1
51− (\i o -> o `hasInfixText` "Just \"100\"")
50+ (\_ o -> o `hasInfixText` "Just \"100\"")
5251 clickingShouldCause (ByCSS "div.unit-button > button") outEl 0.1
53− (\i o -> o `hasInfixText` "Just \"[[]]\"")
52+ (\_ o -> o `hasInfixText` "Just \"[[]]\"")
5453
5554 let setupGreeting = do
5655 iName <- findElem $ ByCSS ".name-input input"
@@ -61,14 +60,14 @@ spec = do
6160 return (iName, iGreetings, bGusto, goBtn, greetingRes)
6261
6362 it "handle query params" $ runWD $ do
64− (iName, iGreetings, bGusto, goBtn, greetingRes) <- setupGreeting
63+ (iName, iGreetings, _bGusto, goBtn, greetingRes) <- setupGreeting
6564 sendKeys "Haskell" iName
6665 sendKeys "Hello Hi" iGreetings
6766 click goBtn
6867 greetingRes `shouldHaveText` "Hello, and Hi, Haskell"
6968
7069 it "handles queryflag" $ runWD $ do
71− (iName, iGreetings, bGusto, goBtn, greetingRes) <- setupGreeting
70+ (_iName, _iGreetings, bGusto, goBtn, greetingRes) <- setupGreeting
7271 click bGusto
7372 click goBtn
7473 greetingRes `shouldHaveText` "HELLO, AND HI, HASKELL"