blob: 53e5a39925b2e34ab9beec14d1b54e093e6d5223 (
plain) (
tree)
|
|
-- | Imported by 'Threaded', since a TH splice can't be used in the
-- module where it is defined.
module Threaded_TH where
import Control.Concurrent (forkOS)
import Language.Haskell.TH.Syntax (Exp (LitE), Lit (IntegerL), Q, runIO)
-- | forkOS requires the threaded RTS, so this TH fails if haddock was
-- built without @-threaded@.
forkTH :: Q Exp
forkTH = do
_ <- runIO (forkOS (return ()))
return (LitE (IntegerL 0))
|