diff options
author | Tamar Christina <tamar@zhox.com> | 2020-06-14 22:46:39 +0100 |
---|---|---|
committer | Tamar Christina <tamar@zhox.com> | 2020-06-17 11:03:32 +0100 |
commit | 5c2e78850cf8385e2d7bbc6e0d70ff5b1a025916 (patch) | |
tree | d0b11861f4b40c354824663e001d459461cdcb2d | |
parent | 46aa1125768d2d181841f47b613a8789206046d1 (diff) | |
download | haskell-5c2e78850cf8385e2d7bbc6e0d70ff5b1a025916.tar.gz |
winio: fix some cpp issues.
-rw-r--r-- | libraries/base/GHC/IO/FD.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/GHC/IO/FD.hs b/libraries/base/GHC/IO/FD.hs index dcd04e1490..9e1a8cf08e 100644 --- a/libraries/base/GHC/IO/FD.hs +++ b/libraries/base/GHC/IO/FD.hs @@ -105,7 +105,7 @@ instance Show FD where ifSupported :: String -> a -> a #if defined(mingw32_HOST_OS) ifSupported s a = a <!> (error $ "FD:" ++ s ++ " not supported") -#elif +#else ifSupported _ = id #endif |