Permalink
Browse files

comment

  • Loading branch information...
jberryman committed Sep 26, 2012
1 parent 577b424 commit 1662a0f3c9bb7dd9e68bc8382038e33980375c6c
Showing with 1 addition and 1 deletion.
  1. +1 −1 System/Directory/Tree.hs
View
@@ -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

0 comments on commit 1662a0f

Please sign in to comment.