diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2020-04-18 22:37:52 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2020-07-15 16:41:02 -0400 |
| commit | bc79f9f180b3fc73fe25439faf9cc5f19622acb3 (patch) | |
| tree | 1853bdc87cb2882b36507a394f61f18378aafaff | |
| parent | fd02ceed5661e1c2fa85ec5c663697a3b0cf3e04 (diff) | |
| download | haskell-bc79f9f180b3fc73fe25439faf9cc5f19622acb3.tar.gz | |
winio: Add comments/cleanup an import in base
| -rw-r--r-- | libraries/base/GHC/Event/Array.hs | 2 | ||||
| -rw-r--r-- | libraries/base/GHC/IO/SubSystem.hs | 2 | ||||
| -rw-r--r-- | libraries/base/GHC/IOPort.hs | 1 |
3 files changed, 4 insertions, 1 deletions
diff --git a/libraries/base/GHC/Event/Array.hs b/libraries/base/GHC/Event/Array.hs index 62711e2a3b..b6956620a4 100644 --- a/libraries/base/GHC/Event/Array.hs +++ b/libraries/base/GHC/Event/Array.hs @@ -140,6 +140,8 @@ unsafeLoad (Array ref) load = do writeIORef ref (AC es len' cap) return len' +-- | Reads n elements from the array and copies them +-- to the address of the given ptr unsafeSplat :: Array a -> Ptr a -> Int -> IO () unsafeSplat (Array ref) ptr n = do AC es _ cap <- readIORef ref diff --git a/libraries/base/GHC/IO/SubSystem.hs b/libraries/base/GHC/IO/SubSystem.hs index 603a81558a..2b3f93ad4a 100644 --- a/libraries/base/GHC/IO/SubSystem.hs +++ b/libraries/base/GHC/IO/SubSystem.hs @@ -52,6 +52,7 @@ conditional posix _ = posix #endif -- | Infix version of `conditional`. +-- posix <!> windows == conditional posix windows (<!>) :: a -> a -> a (<!>) = conditional @@ -84,3 +85,4 @@ whenIoSubSystem m f = do sub <- getIoSubSystem when (sub == m) f + diff --git a/libraries/base/GHC/IOPort.hs b/libraries/base/GHC/IOPort.hs index 1905a10fc9..cb906ae2b0 100644 --- a/libraries/base/GHC/IOPort.hs +++ b/libraries/base/GHC/IOPort.hs @@ -34,7 +34,6 @@ module GHC.IOPort ( ) where import GHC.Base -import GHC.IO.Exception import GHC.Exception import Text.Show |