Fix up some imports.

src/Data/Blob.hs

@@ -5,15 +5,12 @@
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE RecordWildCards #-}
+{-# OPTIONS_GHC -fno-warn-orphans #-}
 -- | Semantic-specific functionality for blob handling.
 module Data.Blob
 ( Blobs(..)
-, blobLanguage
 , NoLanguageForBlob (..)
-, blobPath
 , decodeBlobs
-, nullBlob
-, fromSource
 , moduleForBlob
 , noLanguageForBlob
 , BlobPair
@@ -28,7 +25,6 @@ module Data.Blob
 
 
 import           Analysis.Blob
-import           Analysis.File (File (..))
 import           Control.Effect.Error
 import           Control.Exception
 import           Data.Aeson
@@ -41,11 +37,7 @@ import           Data.Maybe.Exts
 import           Data.Module
 import           GHC.Generics (Generic)
 import           Source.Language as Language
-import           Source.Source (Source, totalSpan)
-import qualified Source.Source as Source
 import qualified System.FilePath as FP
-import qualified System.Path as Path
-import qualified System.Path.PartClass as Path.PartClass
 
 
 newtype Blobs a = Blobs { blobs :: [a] }

src/Data/Blob/IO.hs

@@ -11,12 +11,14 @@ module Data.Blob.IO
 
 import           Analysis.Blob
 import           Analysis.File as File
+import           Analysis.Project
 import qualified Control.Concurrent.Async as Async
 import           Control.Monad.IO.Class
 import           Data.Blob
 import qualified Data.ByteString as B
 import           Data.Language
 import           Data.Maybe.Exts
+import           Data.Semilattice.Lower
 import           Semantic.IO
 import qualified Source.Source as Source
 import qualified System.Path as Path