-- | 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))
forkTH :: Q Exp
forkTH = do
  _ <- runIO (forkOS (return ()))
  return (LitE (IntegerL 0))
forkTH = do
  _ <- runIO (forkOS (return ()))
  return (LitE (IntegerL 0))