fix build on windows

Utility.OpenFile is posix only

diff --git a/Utility/OpenFile.hs b/Utility/OpenFile.hs
index 99ac6960390e28a6b8a6ab8a987a79fcee4380fe..1af701f0b6e646c6a0829486514f1b333474f069 100644 (file)
--- a/Utility/OpenFile.hs
+++ b/Utility/OpenFile.hs
@@ -5,8 +5,12 @@
  - License: BSD-2-clause
  -}
 
+{-# LANGUAGE CPP #-}
+
 module Utility.OpenFile where
 
+#ifndef mingw32_HOST_OS
+
 import System.IO
 import System.Posix.IO
 import GHC.IO.FD
@@ -30,3 +34,5 @@ openFileBeingWritten f = do
        fd <- openFdWithMode f ReadOnly Nothing defaultFileFlags
        (fd', fdtype) <- mkFD (fromIntegral fd) ReadMode (Just (Stream, 0, 0)) False False
        mkHandleFromFD fd' fdtype (fromRawFilePath f) ReadMode False Nothing
+
+#endif

diff --git a/doc/bugs/windows_FTBFS__58___Could_not_find_module_System.Posix.mdwn b/doc/bugs/windows_FTBFS__58___Could_not_find_module_System.Posix.mdwn
index c4cf83a9447b947dbe9b1de11fa1d05bcab7eb00..ecf21f559b10f712284b4cd8dfa7880570dfecc1 100644 (file)
--- a/doc/bugs/windows_FTBFS__58___Could_not_find_module_System.Posix.mdwn
+++ b/doc/bugs/windows_FTBFS__58___Could_not_find_module_System.Posix.mdwn
@@ -48,3 +48,4 @@ full logs are on smaug or for a while on [github actions](https://github.com/dat
 ### Have you had any luck using git-annex before? (Sometimes we get tired of reading bug reports all day and a lil' positive end note does wonders)
 
 
+> [[fixed|done]] --[[Joey]]