Fix tests.

semantic.cabal

@@ -345,7 +345,6 @@ test-suite test
                      , Data.Functor.Classes.Generic.Spec
                      , Data.Functor.Listable
                      , Data.Graph.Spec
-                     , Data.GitHub.Spec
                      , Data.Mergeable
                      , Data.Range.Spec
                      , Data.Scientific.Spec

test/Control/Abstract/Evaluator/Spec.hs

@@ -35,9 +35,9 @@ spec = parallel $ do
       let lexicalEdges = Map.singleton Lexical [ currentScope' ]
           x =  SpecHelpers.name "x"
       associatedScope <- newScope lexicalEdges
-      declare (ScopeGraph.Declaration "identity") Default Public emptySpan ScopeGraph.Unknown (Just associatedScope)
+      declare (ScopeGraph.Declaration "identity") Default Public emptySpan (Just associatedScope)
       withScope associatedScope $ do
-        declare (Declaration x) Default Public emptySpan ScopeGraph.Unknown Nothing
+        declare (Declaration x) Default Public emptySpan Nothing
       identity <- function "identity" [ x ]
         (SpecEff (Heap.lookupSlot (ScopeGraph.Declaration (SpecHelpers.name "x")) >>= deref)) associatedScope
       val <- integer 123

test/Spec.hs

@@ -11,7 +11,6 @@ import qualified Data.Diff.Spec
 import qualified Data.Abstract.Name.Spec
 import qualified Data.Abstract.Path.Spec
 import qualified Data.Functor.Classes.Generic.Spec
-import qualified Data.GitHub.Spec
 import qualified Data.Graph.Spec
 import qualified Data.Range.Spec
 import qualified Data.Scientific.Spec
@@ -56,7 +55,6 @@ main = do
       describe "Data.Abstract.Path" Data.Abstract.Path.Spec.spec
       describe "Data.Abstract.Name" Data.Abstract.Name.Spec.spec
       describe "Data.Functor.Classes.Generic" Data.Functor.Classes.Generic.Spec.spec
-      describe "Data.GitHub" Data.GitHub.Spec.spec
       describe "Data.Range" Data.Range.Spec.spec
       describe "Data.Scientific" Data.Scientific.Spec.spec
       describe "Data.Semigroup.App" Data.Semigroup.App.Spec.spec

test/SpecHelpers.hs

@@ -51,7 +51,7 @@ import Data.List.NonEmpty as X (NonEmpty(..))
 import Data.Range as X
 import Data.Semilattice.Lower as X
 import Data.Source as X
-import Data.Span as X
+import Data.Span as X hiding (HasSpan(..))
 import Data.String
 import Data.Sum
 import Data.Term as X
@@ -112,7 +112,7 @@ parseTestFile parser path = runTaskOrDie $ do
   term <- parse parser blob
   pure (blob, term)
 
--- Run a Task and call `die` if it returns an Exception.  
+-- Run a Task and call `die` if it returns an Exception.
 runTaskOrDie :: TaskEff a -> IO a
 runTaskOrDie task = runTaskWithOptions defaultOptions { optionsLogLevel = Nothing } task >>= either (die . displayException) pure