diff options
Diffstat (limited to 'Assistant/Types/NamedThread.hs')
| -rw-r--r-- | Assistant/Types/NamedThread.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/Assistant/Types/NamedThread.hs b/Assistant/Types/NamedThread.hs index a65edc20d..5dd1364ad 100644 --- a/Assistant/Types/NamedThread.hs +++ b/Assistant/Types/NamedThread.hs @@ -11,7 +11,11 @@ import Assistant.Monad import Assistant.Types.ThreadName {- Information about a named thread that can be run. -} -data NamedThread = NamedThread ThreadName (Assistant ()) +data NamedThread = NamedThread Bool ThreadName (Assistant ()) namedThread :: String -> Assistant () -> NamedThread -namedThread = NamedThread . ThreadName +namedThread = NamedThread True . ThreadName + +{- A named thread that can start running before the startup sanity check. -} +namedThreadUnchecked :: String -> Assistant () -> NamedThread +namedThreadUnchecked = NamedThread False . ThreadName |