Skip to content

Make it compile with MicroHs #173

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
simonmar merged 2 commits into from
Nov 13, 2025
Merged

Make it compile with MicroHs #173

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
01d6f63
Make it compile with MicroHs
augustss Nov 5, 2025
4aad30a
Slightly nicer fix
augustss Nov 7, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 4 additions & 0 deletions Control/Concurrent/Async/Internal.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -57,6 +57,10 @@ import GHC.Exts
import GHC.IO hiding (finally, onException)
import GHC.Conc (ThreadId(..))

#if defined(__MHS__)
import Data.Traversable
#endif

#ifdef DEBUG_AUTO_LABEL
import qualified GHC.Stack
#endif
Expand Down
10 changes: 8 additions & 2 deletions Control/Concurrent/Async/Warden.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,7 +5,7 @@
This source code is licensed under the BSD-style license found in the
LICENSE file in the root directory of this source tree.
-}

{-# LANGUAGE CPP #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE ScopedTypeVariables #-}

Expand All @@ -27,11 +27,17 @@ import Control.Concurrent.Async (Async)
import qualified Control.Concurrent.Async as Async
import Control.Concurrent.MVar
import Control.Exception
import Control.Monad
import Data.HashSet (HashSet)
import qualified Data.HashSet as HashSet
import System.IO (fixIO)

#if defined(__MHS__)
import Prelude hiding(mapM_)
import Control.Monad hiding(mapM_)
import Data.Foldable(mapM_)
#else
import Control.Monad
#endif

-- | A 'Warden' is an owner of 'Async's which cancels them on 'shutdown'.
--
Expand Down