parallel-tree-search 0.1 → 0.1.1

raw patch · 2 files changed

+7/−7 lines, 2 files

Files

• Control/Concurrent/ParallelTreeSearch.hs +6/−6
• parallel-tree-search.cabal +1/−1

@@ -68,12 +68,12 @@ -- choice. -- process :: SearchEnv a -> [a] -> Queue a -> IO ([a], Queue a)-process _   xs []                 = return (xs,[])-process env xs (None          :q) = process env xs q-process env xs (One x         :q) = process env (x:xs) q-process env xs (t@(Choice _ _):q) = do incThreadCounter env-                                       forkIO (parSearch env xs [t])-                                       return ([],q)+process _   xs []               = return (xs,[])+process env xs (None       : q) = process env xs q+process env xs (One x      : q) = process env (x:xs) q+process env xs (Choice s t : q) = do incThreadCounter env+                                     forkIO (parSearch env xs [s])+                                     return ([],t:q)  -- auxiliary functions 

@@ -1,5 +1,5 @@ Name:          parallel-tree-search-Version:       0.1+Version:       0.1.1 Cabal-Version: >= 1.6 Synopsis:      Parallel Tree Search Description: