From dbcdadf2bf6a3c5da83b5e713bb05eb8783bfd95 Mon Sep 17 00:00:00 2001
From: Patrick Thomson <patrickt@github.com>
Date: Wed, 1 Jul 2020 15:57:08 -0400
Subject: [PATCH] mollify GHC warnings I couldn't figure out

---
 semantic/test/Semantic/CLI/Spec.hs | 6 ++----
 semantic/test/Semantic/IO/Spec.hs  | 4 +++-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/semantic/test/Semantic/CLI/Spec.hs b/semantic/test/Semantic/CLI/Spec.hs
index a7fd50ee1..93d366299 100644
--- a/semantic/test/Semantic/CLI/Spec.hs
+++ b/semantic/test/Semantic/CLI/Spec.hs
@@ -10,17 +10,15 @@ import           Semantic.Api hiding (Blob, File)
 import           Semantic.Task
 import           Serializing.Format
 import           System.IO.Unsafe
-import           System.Path ((</>))
 import qualified System.Path as Path
-import qualified System.Path.Fixture as Path
+import qualified System.Path.Fixture as Fixture
 import qualified System.Path.Directory as Path
 
 import SpecHelpers
 import Test.Tasty
 import Test.Tasty.Golden
 
--- TODO: Fix this, or throw it out entirely.
-testTree :: Path.HasFixture => TestTree
+testTree :: TestTree
 testTree = testGroup "Semantic.CLI"
   [ testGroup "parseTermBuilder" $ fmap testForParseFixture parseFixtures
   ]
diff --git a/semantic/test/Semantic/IO/Spec.hs b/semantic/test/Semantic/IO/Spec.hs
index 58e014adb..2d259f0f9 100644
--- a/semantic/test/Semantic/IO/Spec.hs
+++ b/semantic/test/Semantic/IO/Spec.hs
@@ -1,6 +1,8 @@
 {-# LANGUAGE CPP #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE ImplicitParams #-}
+{-# OPTIONS_GHC -Wno-unused-imports #-}
+{-# OPTIONS_GHC -Wno-redundant-constraints #-}
 
 module Semantic.IO.Spec (spec) where
 
@@ -16,7 +18,7 @@ import qualified System.Path.Fixture as Fixture
 spec :: Fixture.HasFixture => Spec
 spec = do
 #if BAZEL_BUILD
-  rf <- Fixture.create
+  rf <- runIO Fixture.create
   let ?project = Path.relDir "semantic"
       ?runfiles = rf
 #endif