diff --git a/src/Database/LSMTree/Internal/ChecksumHandle.hs b/src/Database/LSMTree/Internal/ChecksumHandle.hs index c1b020101..518dc1587 100644 --- a/src/Database/LSMTree/Internal/ChecksumHandle.hs +++ b/src/Database/LSMTree/Internal/ChecksumHandle.hs @@ -44,7 +44,6 @@ import qualified Database.LSMTree.Internal.RawOverflowPage as RawOverflowPage import Database.LSMTree.Internal.RawPage (RawPage) import qualified Database.LSMTree.Internal.RawPage as RawPage import Database.LSMTree.Internal.Serialise -import GHC.Exts (Proxy#) import qualified System.FS.API as FS import System.FS.API import qualified System.FS.BlockIO.API as FS diff --git a/src/Database/LSMTree/Internal/Config.hs b/src/Database/LSMTree/Internal/Config.hs index a3e78e6ff..c0a8f8306 100644 --- a/src/Database/LSMTree/Internal/Config.hs +++ b/src/Database/LSMTree/Internal/Config.hs @@ -42,7 +42,6 @@ import qualified Database.LSMTree.Internal.Index as Index (IndexType (Compact, Ordinary)) import Database.LSMTree.Internal.Run (RunDataCaching (..)) import Database.LSMTree.Internal.RunAcc (RunBloomFilterAlloc (..)) -import GHC.Exts (Proxy#, proxy#) import qualified Monkey newtype LevelNo = LevelNo Int diff --git a/src/Database/LSMTree/Internal/Merge.hs b/src/Database/LSMTree/Internal/Merge.hs index 1df33d093..1ea753ff3 100644 --- a/src/Database/LSMTree/Internal/Merge.hs +++ b/src/Database/LSMTree/Internal/Merge.hs @@ -38,7 +38,6 @@ import qualified Database.LSMTree.Internal.RunReader as Reader import Database.LSMTree.Internal.RunReaders (Readers) import qualified Database.LSMTree.Internal.RunReaders as Readers import Database.LSMTree.Internal.Serialise -import GHC.Exts (Proxy#) import qualified System.FS.API as FS import System.FS.API (HasFS) import System.FS.BlockIO.API (HasBlockIO) diff --git a/src/Database/LSMTree/Internal/MergingRun.hs b/src/Database/LSMTree/Internal/MergingRun.hs index a9495b330..b3e7d751b 100644 --- a/src/Database/LSMTree/Internal/MergingRun.hs +++ b/src/Database/LSMTree/Internal/MergingRun.hs @@ -45,7 +45,6 @@ import Database.LSMTree.Internal.Paths (RunFsPaths (..)) import Database.LSMTree.Internal.Run (Run) import qualified Database.LSMTree.Internal.Run as Run import Database.LSMTree.Internal.RunAcc (RunBloomFilterAlloc) -import GHC.Exts (Proxy#) import System.FS.API (HasFS) import System.FS.BlockIO.API (HasBlockIO) diff --git a/src/Database/LSMTree/Internal/Run.hs b/src/Database/LSMTree/Internal/Run.hs index 793e7ecb4..5980c958c 100644 --- a/src/Database/LSMTree/Internal/Run.hs +++ b/src/Database/LSMTree/Internal/Run.hs @@ -56,7 +56,6 @@ import Database.LSMTree.Internal.WriteBuffer (WriteBuffer) import qualified Database.LSMTree.Internal.WriteBuffer as WB import Database.LSMTree.Internal.WriteBufferBlobs (WriteBufferBlobs) import qualified Database.LSMTree.Internal.WriteBufferBlobs as WBB -import GHC.Exts (Proxy#) import qualified System.FS.API as FS import System.FS.API (HasFS) import qualified System.FS.BlockIO.API as FS diff --git a/src/Database/LSMTree/Internal/RunAcc.hs b/src/Database/LSMTree/Internal/RunAcc.hs index 47a9170e6..6277879b9 100644 --- a/src/Database/LSMTree/Internal/RunAcc.hs +++ b/src/Database/LSMTree/Internal/RunAcc.hs @@ -55,7 +55,6 @@ import Database.LSMTree.Internal.RawPage (RawPage) import qualified Database.LSMTree.Internal.RawPage as RawPage import Database.LSMTree.Internal.Serialise (SerialisedKey, SerialisedValue) -import GHC.Exts (Proxy#) import qualified Monkey {------------------------------------------------------------------------------- diff --git a/src/Database/LSMTree/Internal/RunBuilder.hs b/src/Database/LSMTree/Internal/RunBuilder.hs index dc44e4c57..2000a0ba1 100644 --- a/src/Database/LSMTree/Internal/RunBuilder.hs +++ b/src/Database/LSMTree/Internal/RunBuilder.hs @@ -30,7 +30,6 @@ import Database.LSMTree.Internal.RawPage (RawPage) import Database.LSMTree.Internal.RunAcc (RunAcc, RunBloomFilterAlloc) import qualified Database.LSMTree.Internal.RunAcc as RunAcc import Database.LSMTree.Internal.Serialise -import GHC.Exts (Proxy#) import qualified System.FS.API as FS import System.FS.API (HasFS) import qualified System.FS.BlockIO.API as FS