github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-04 20:27:03 +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 Semantic.Task
import Serializing.Format import Serializing.Format
import System.IO.Unsafe import System.IO.Unsafe
import System.Path ((</>))
import qualified System.Path as 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 qualified System.Path.Directory as Path
import SpecHelpers import SpecHelpers
import Test.Tasty import Test.Tasty
import Test.Tasty.Golden import Test.Tasty.Golden
-- TODO: Fix this, or throw it out entirely. testTree :: TestTree
testTree :: Path.HasFixture => TestTree
testTree = testGroup "Semantic.CLI" testTree = testGroup "Semantic.CLI"
[ testGroup "parseTermBuilder" $ fmap testForParseFixture parseFixtures [ testGroup "parseTermBuilder" $ fmap testForParseFixture parseFixtures
] ]

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

@ -1,6 +1,8 @@
{-# LANGUAGE CPP #-} {-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ImplicitParams #-} {-# LANGUAGE ImplicitParams #-}
{-# OPTIONS_GHC -Wno-unused-imports #-}
{-# OPTIONS_GHC -Wno-redundant-constraints #-}
module Semantic.IO.Spec (spec) where module Semantic.IO.Spec (spec) where
@ -16,7 +18,7 @@ import qualified System.Path.Fixture as Fixture
spec :: Fixture.HasFixture => Spec spec :: Fixture.HasFixture => Spec
spec = do spec = do
#if BAZEL_BUILD #if BAZEL_BUILD
rf <- Fixture.create rf <- runIO Fixture.create
let ?project = Path.relDir "semantic" let ?project = Path.relDir "semantic"
?runfiles = rf ?runfiles = rf
#endif #endif