The System.IO.Seek module is redundant from ghc-8.10.7 onwards.

input-output-hk · Mar 17, 2023 · 96c805f · 96c805f
1 parent 3f7c90f
commit 96c805f
Show file tree

Hide file tree

Showing 3 changed files with 1 addition and 40 deletions.
diff --git a/fs-api/fs-api.cabal b/fs-api/fs-api.cabal
@@ -42,12 +42,6 @@ library
                     , Util.CallStack
                     , Util.Condense
 
-  if os(windows)
-    exposed-modules:
-                      -- TODO Delete this module once all our projects have upgraded to at least
-                      -- ghc-8.10.7, but not before
-                      System.IO.Seek
-
   default-language:   Haskell2010
 
   build-depends:      base        >=4.14  && <4.17

diff --git a/fs-api/src-win32/System/IO/FS.hs b/fs-api/src-win32/System/IO/FS.hs
@@ -20,14 +20,10 @@ import           Data.ByteString
 import           Data.ByteString.Internal as Internal
 import           Data.Word (Word32, Word64, Word8)
 import           Foreign (Int64, Ptr)
-
--- Dodgy import when Win32 >= 2.6.2.0
-import           System.Win32 hiding (setFilePointerEx)
-
 import           System.FS.API.Types (AllowExisting (..), FsError (..),
                      FsErrorType (..), OpenMode (..), SeekMode (..))
 import           System.FS.Handle
-import           System.IO.Seek (setFilePointerEx)
+import           System.Win32
 
 type FHandle = HandleOS HANDLE
 

diff --git a/fs-api/src-win32/System/IO/Seek.hsc b/fs-api/src-win32/System/IO/Seek.hsc