aboutsummaryrefslogblamecommitdiff
path: root/html-test/src/Threaded_TH.hs
blob: 53e5a39925b2e34ab9beec14d1b54e093e6d5223 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13











                                                                        
-- | 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))