@@ -1,13 +1,9 @@
1−{-# OPTIONS_GHC -fno-warn-orphans #-}
21{-# LANGUAGE BangPatterns #-}
3−{-# LANGUAGE StandaloneDeriving #-}
4−{-# LANGUAGE GeneralizedNewtypeDeriving #-}
5−{-# LANGUAGE UndecidableInstances #-}
62{-# LANGUAGE ConstraintKinds #-}
7−{-# LANGUAGE CPP #-}
83{-# LANGUAGE FlexibleContexts #-}
94{-# LANGUAGE FlexibleInstances #-}
105{-# LANGUAGE GADTs #-}
6+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
117{-# LANGUAGE LambdaCase #-}
128{-# LANGUAGE MultiParamTypeClasses #-}
139{-# LANGUAGE OverloadedStrings #-}
@@ -15,10 +11,14 @@
1511{-# LANGUAGE RankNTypes #-}
1612{-# LANGUAGE RecursiveDo #-}
1713{-# LANGUAGE ScopedTypeVariables #-}
14+{-# LANGUAGE StandaloneDeriving #-}
1815{-# LANGUAGE TemplateHaskell #-}
1916{-# LANGUAGE TupleSections #-}
2017{-# LANGUAGE TypeApplications #-}
2118{-# LANGUAGE TypeFamilies #-}
19+{-# LANGUAGE UndecidableInstances #-}
20+
21+{-# OPTIONS_GHC -fno-warn-orphans #-}
2222
2323import Prelude hiding (fail)
2424import Control.Concurrent
@@ -32,7 +32,7 @@ import Control.Monad.Ref
3232import Data.Constraint.Extras
3333import Data.Constraint.Extras.TH
3434import Data.Dependent.Map (DMap)
35−import Data.Dependent.Sum (DSum(..), (==>), EqTag(..), ShowTag(..))
35+import Data.Dependent.Sum (DSum(..), (==>))
3636import Data.Functor.Identity
3737import Data.Functor.Misc
3838import Data.GADT.Compare.TH
@@ -63,7 +63,6 @@ import Test.Hspec (xit)
6363import Test.Hspec.WebDriver hiding (runWD, click, uploadFile, WD)
6464import qualified Test.Hspec.WebDriver as WD
6565import Test.WebDriver (WD(..))
66−import Test.WebDriver.Exceptions (ServerError(..))
6766
6867import qualified Data.ByteString.Lazy as LBS
6968import qualified Data.Dependent.Map as DMap