diff options
Diffstat (limited to 'libraries/base/tests/IO/hClose003.hs')
| -rw-r--r-- | libraries/base/tests/IO/hClose003.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/tests/IO/hClose003.hs b/libraries/base/tests/IO/hClose003.hs index cbaf49d6db..6d962fd94e 100644 --- a/libraries/base/tests/IO/hClose003.hs +++ b/libraries/base/tests/IO/hClose003.hs @@ -38,5 +38,5 @@ showPossibleException f = do sanitise' (x:xs) = if isDigit x then (sanitise' xs) else (x:(sanitise xs)) naughtyClose h = - withHandle_ "naughtyClose" h $ \ Handle__{haDevice=dev} -> do + withHandle_ "naughtyClose" h $ \ Handle__{haDevice=dev} -> IODevice.close dev |