--------------------------------------------------------------------------------
-- Forking threads
--------------------------------------------------------------------------------

compThreadCMD :: Imp.ThreadCMD (Param3 RunGen Data PrimType') a -> RunGen a
compThreadCMD (Imp.ForkWithId p) = do
    s <- genState
    let p' = evalGen s . p
    fromRun $ forkWithId p'
compThreadCMD :: Imp.ThreadCMD (Param3 RunGen Data PrimType') a -> RunGen a
compThreadCMD (Imp.ForkWithId p) = do
    s <- genState
    let p' = evalGen s . p
    fromRun $ forkWithId p'
compThreadCMD (Imp.ForkWithId p) = do
    s <- genState
    let p' = evalGen s . p
    fromRun $ forkWithId p'