From d31c06b06d19c82917a3ed6873a5eb08e850468d Mon Sep 17 00:00:00 2001
From: Luigy Leon <luigy@outlook.com>
Date: Fri, 21 Apr 2017 01:18:16 -0400
Subject: [PATCH] Fix warnings.

---
 exec/Example.hs                       |  2 +-
 testdriver/test/Servant/ReflexSpec.hs | 13 ++++++-------
 2 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/exec/Example.hs b/exec/Example.hs
index 442949a..f269059 100644
--- a/exec/Example.hs
+++ b/exec/Example.hs
@@ -19,7 +19,7 @@ import Servant.API
 import API
 import Data.Proxy
 import Text.Read (readMaybe)
-import Reflex.Dom
+import Reflex.Dom hiding (run)
 ------------------------------------------------------------------------------
 import Servant.Reflex
 import Servant.Reflex.Multi
diff --git a/testdriver/test/Servant/ReflexSpec.hs b/testdriver/test/Servant/ReflexSpec.hs
index 66bc0ae..a1ebe0e 100644
--- a/testdriver/test/Servant/ReflexSpec.hs
+++ b/testdriver/test/Servant/ReflexSpec.hs
@@ -1,12 +1,11 @@
-{-# language OverloadedStrings #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE ScopedTypeVariables #-}
 
 module Servant.ReflexSpec where
 
 import Control.Concurrent (threadDelay)
 import Control.Monad.IO.Class (liftIO)
-import Data.Monoid ((<>))
 import qualified Data.Text as T
-import Data.Foldable
 import Test.WebDriver.Commands.Wait
 import Test.Hspec.WebDriver
 
@@ -48,9 +47,9 @@ spec = do
       it "can get an int or unit from the API" $ runWD $ do
         let outEl = ByCSS "div.unit-int-response p"
         clickingShouldCause (ByCSS "div.int-button > button") outEl 0.1
-          (\i o -> o `hasInfixText` "Just \"100\"")
+          (\_ o -> o `hasInfixText` "Just \"100\"")
         clickingShouldCause (ByCSS "div.unit-button > button") outEl 0.1
-          (\i o -> o `hasInfixText` "Just \"[[]]\"")
+          (\_ o -> o `hasInfixText` "Just \"[[]]\"")
 
       let setupGreeting = do
             iName       <- findElem $ ByCSS ".name-input input"
@@ -61,14 +60,14 @@ spec = do
             return (iName, iGreetings, bGusto, goBtn, greetingRes)
 
       it "handle query params" $ runWD $ do
-        (iName, iGreetings, bGusto, goBtn, greetingRes) <- setupGreeting
+        (iName, iGreetings, _bGusto, goBtn, greetingRes) <- setupGreeting
         sendKeys "Haskell" iName
         sendKeys "Hello Hi" iGreetings
         click goBtn
         greetingRes `shouldHaveText` "Hello, and Hi, Haskell"
 
       it "handles queryflag" $ runWD $ do
-        (iName, iGreetings, bGusto, goBtn, greetingRes) <- setupGreeting
+        (_iName, _iGreetings, bGusto, goBtn, greetingRes) <- setupGreeting
         click bGusto
         click goBtn
         greetingRes `shouldHaveText` "HELLO, AND HI, HASKELL"