Fix tests

test/BrowseSpec.hs

@@ -3,6 +3,7 @@ module BrowseSpec where
 import Control.Applicative
 import Language.Haskell.GhcMod
 import Test.Hspec
+import Prelude
 
 import TestUtils
 import Dir

test/CabalHelperSpec.hs

@@ -10,6 +10,7 @@ import Test.Hspec
 import System.Directory
 import System.FilePath
 import System.Process (readProcess, system)
+import Prelude
 
 import Dir
 import TestUtils

test/CradleSpec.hs

@@ -7,6 +7,7 @@ import Language.Haskell.GhcMod.Types
 import System.Directory (canonicalizePath)
 import System.FilePath (pathSeparator)
 import Test.Hspec
+import Prelude
 
 import Dir
 
@@ -35,14 +36,14 @@ spec = do
         it "returns the current directory" $ do
             withDirectory_ "/" $ do
                 curDir <- stripLastDot <$> canonicalizePath "/"
-                res <- clean_ findCradle
+                res <- clean_ $ findCradle (outputOpts defaultOptions)
                 cradleCurrentDir res `shouldBe` curDir
                 cradleRootDir    res `shouldBe` curDir
                 cradleCabalFile  res `shouldBe` Nothing
 
         it "finds a cabal file and a sandbox" $ do
             withDirectory "test/data/cabal-project/subdir1/subdir2" $ \dir -> do
-                res <- relativeCradle dir <$> clean_ findCradle
+                res <- relativeCradle dir <$> clean_ (findCradle (outputOpts defaultOptions))
 
                 cradleCurrentDir res `shouldBe`
                     "test/data/cabal-project/subdir1/subdir2"
@@ -54,7 +55,7 @@ spec = do
 
         it "works even if a sandbox config file is broken" $ do
             withDirectory "test/data/broken-sandbox" $ \dir -> do
-                res <- relativeCradle dir <$> clean_ findCradle
+                res <- relativeCradle dir <$> clean_ (findCradle (outputOpts defaultOptions))
                 cradleCurrentDir res `shouldBe`
                     "test" </> "data" </> "broken-sandbox"
 

test/FileMappingSpec.hs

@@ -114,7 +114,7 @@ spec = do
         it "should work even if file doesn't exist" $ do
           withDirectory_ "test/data/file-mapping" $ do
             let fm = [("Nonexistent.hs", "main = putStrLn \"Hello World!\"\n")]
-            res <- run defaultOptions{logLevel=GmDebug} $ do
+            res <- run defaultOptions $ do
               mapM_ (uncurry loadMappedFileSource) fm
               checkSyntax ["Nonexistent.hs"]
             res `shouldBe` "Nonexistent.hs:1:1:Warning: Top-level binding with no type signature: main :: IO ()\n"
@@ -224,7 +224,7 @@ spec = do
               writeFile (tmpdir </> "Bar_Redir.hs") srcBar
               let fm = [("Foo.hs", tmpdir </> "Foo_Redir.hs")
                        ,("Bar.hs", tmpdir </> "Bar_Redir.hs")]
-              res <- run defaultOptions{logLevel = GmDebug} $ do
+              res <- run defaultOptions $ do
                 mapM_ (uncurry loadMappedFile) fm
                 types "Bar.hs" 5 1
               res `shouldBe` unlines ["5 1 5 20 \"[Char]\""]
@@ -234,7 +234,7 @@ spec = do
           withDirectory_ "test/data/file-mapping" $ do
             let fm = [("Foo.hs", srcFoo)
                      ,("Bar.hs", srcBar)]
-            res <- run defaultOptions{logLevel = GmDebug} $ do
+            res <- run defaultOptions $ do
               mapM_ (uncurry loadMappedFileSource) fm
               types "Bar.hs" 5 1
             res `shouldBe` unlines ["5 1 5 20 \"[Char]\""]

test/FlagSpec.hs

@@ -4,6 +4,7 @@ import Control.Applicative
 import Language.Haskell.GhcMod
 import Test.Hspec
 import TestUtils
+import Prelude
 
 spec :: Spec
 spec = do

test/LangSpec.hs

@@ -4,6 +4,7 @@ import Control.Applicative
 import Language.Haskell.GhcMod
 import Test.Hspec
 import TestUtils
+import Prelude
 
 spec :: Spec
 spec = do

test/ListSpec.hs

@@ -4,6 +4,7 @@ import Control.Applicative
 import Language.Haskell.GhcMod
 import Test.Hspec
 import TestUtils
+import Prelude
 
 spec :: Spec
 spec = do

test/TestUtils.hs

@@ -18,14 +18,17 @@ import Language.Haskell.GhcMod.Cradle
 import Language.Haskell.GhcMod.Types
 
 import Control.Arrow
+import Control.Category
 import Control.Applicative
 import Control.Monad.Error (ErrorT, runErrorT)
 import Control.Monad.Trans.Journal
 import Data.List.Split
+import Data.Label
 import Data.String
 import System.FilePath
 import System.Directory
 import Test.Hspec
+import Prelude hiding ((.))
 
 import Exception
 
@@ -56,7 +59,7 @@ runGhcModTSpec' :: IOish m
 runGhcModTSpec' dir opt action = liftIO (canonicalizePath dir) >>= \dir' ->
     withGhcModEnvSpec dir' opt $ \env -> do
       first (fst <$>) <$> runGhcModT'' env defaultGhcModState
-        (gmSetLogLevel (logLevel opt) >> action)
+        (gmSetLogLevel (logLevel $ outputOpts opt) >> action)
 
 -- | Run GhcMod
 run :: Options -> GhcModT IO a -> IO a
@@ -65,11 +68,14 @@ run opt a = extract $ runGhcModTSpec opt a
 -- | Run GhcMod with default options
 runD :: GhcModT IO a -> IO a
 runD =
-    extract . runGhcModTSpec defaultOptions { logLevel = testLogLevel }
+    extract . runGhcModTSpec (setLogLevel testLogLevel defaultOptions)
 
 runD' :: FilePath -> GhcModT IO a -> IO a
 runD' dir =
-    extract . runGhcModTSpec' dir defaultOptions { logLevel = testLogLevel }
+    extract . runGhcModTSpec' dir (setLogLevel testLogLevel defaultOptions)
+
+setLogLevel :: GmLogLevel -> Options -> Options
+setLogLevel = set (lLogLevel . lOutputOpts)
 
 runE :: ErrorT e IO a -> IO (Either e a)
 runE = runErrorT