Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

comment

  • Loading branch information...
commit 1662a0f3c9bb7dd9e68bc8382038e33980375c6c 1 parent 577b424
@jberryman authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  System/Directory/Tree.hs
View
2  System/Directory/Tree.hs
@@ -353,7 +353,7 @@ buildLazilyUnsafe' f p = handleDT n $
then File n <$> f p
-- HERE IS THE UNSAFE CODE:
else Dir n . fmap (rec . combine p) <$> getDirsFiles p
-
+ -- TODO: this should really be unsafeInterleaveIO
where rec = unsafePerformIO . buildLazilyUnsafe' f
n = topDir p
Please sign in to comment.
Something went wrong with that request. Please try again.