+fdGetMode :: Int -> IO IOMode
+fdGetMode fd = do
+#ifdef mingw32_TARGET_OS
+ flags1 <- throwErrnoIfMinus1Retry "fdGetMode"
+ (c__setmode (fromIntegral fd) (fromIntegral o_WRONLY))
+ flags <- throwErrnoIfMinus1Retry "fdGetMode"
+ (c__setmode (fromIntegral fd) (fromIntegral flags1))
+#else
+ flags <- throwErrnoIfMinus1Retry "fdGetMode"
+ (c_fcntl_read (fromIntegral fd) const_f_getfl)
+#endif
+ let
+ wH = (flags .&. o_WRONLY) /= 0
+ aH = (flags .&. o_APPEND) /= 0
+ rwH = (flags .&. o_RDWR) /= 0
+
+ mode
+ | wH && aH = AppendMode
+ | wH = WriteMode
+ | rwH = ReadWriteMode
+ | otherwise = ReadMode
+
+ return mode
+