Permalink
Browse files

Delay does not seem to be necessary any more

  • Loading branch information...
1 parent 36e6b21 commit 2765a8c6f0819fffac513533edf1c03a6ccfe4dd @batterseapower committed Jan 31, 2011
Showing with 0 additions and 2 deletions.
  1. +0 −2 Development/Shake/Files.hs
@@ -25,7 +25,6 @@ import Data.Binary
import Control.DeepSeq
-import Control.Concurrent (threadDelay)
import Control.Monad
import Control.Monad.IO.Class
@@ -120,7 +119,6 @@ instance Namespace CanonicalFilePath where
data Snapshot CanonicalFilePath = CFPSS (M.Map CanonicalFilePath ClockTime)
takeSnapshot = do
- threadDelay (500 * 1000) -- Half a second delay to deal with access time resolution issues
cwd <- getCurrentDirectory >>= canonical
(_, fps) <- explore cwd (S.empty, S.empty) "."
liftM (CFPSS . M.fromAscList) $ forM (S.toAscList fps) $ \fp -> liftM (fp,) (getAccessTime (canonicalFilePath fp))

0 comments on commit 2765a8c

Please sign in to comment.