Permalink
Browse files

Merge branch 'master' of github.com:simonmar/parconc-examples

* 'master' of github.com:simonmar/parconc-examples:
  refactoring only
  • Loading branch information...
2 parents 5d39954 + 11e32ff commit 7eb42747e674914af7531427966608bef5f65388 @simonmar committed Mar 30, 2013
Showing with 4 additions and 4 deletions.
  1. +2 −2 findpar3.hs
  2. +2 −2 findseq.hs
View
@@ -47,8 +47,8 @@ subfind :: NBSem -> String -> FilePath
-> [Async (Maybe FilePath)] -> IO (Maybe FilePath)
subfind sem s p inner asyncs = do
- b <- doesDirectoryExist p
- if b
+ isdir <- doesDirectoryExist p
+ if isdir
then do
q <- tryWaitNBSem sem
if q
View
@@ -24,8 +24,8 @@ find s d = do
loop [] = return Nothing -- <5>
loop (f:fs) = do
let d' = d </> f -- <6>
- b <- doesDirectoryExist d' -- <7>
- if b
+ isdir <- doesDirectoryExist d' -- <7>
+ if isdir
then do r <- find s d' -- <8>
case r of
Just _ -> return r -- <9>

0 comments on commit 7eb4274

Please sign in to comment.