github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-03 13:56:04 +03:00
Code Issues Projects Releases Wiki Activity

mollify GHC warnings I couldn't figure out

Browse Source
This commit is contained in:
Patrick Thomson 2020-07-01 15:57:08 -04:00
parent 6212f58fab
commit dbcdadf2bf
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
semantic/test/Semantic/CLI/Spec.hs
View File

@ -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
]

4
semantic/test/Semantic/IO/Spec.hs
View File

@ -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