This commit is contained in:
Joey Hess 2013-02-24 17:40:14 -04:00
parent 86a0e0f21a
commit e423190b11

View file

@ -70,7 +70,7 @@ createAnnexDirectory dir = traverse dir [] =<< top
) )
where where
done = forM_ below $ \p -> do done = forM_ below $ \p -> do
liftIO $ createDirectoryIfMissing p liftIO $ createDirectoryIfMissing True p
setAnnexPerm p setAnnexPerm p
{- Blocks writing to the directory an annexed file is in, to prevent the {- Blocks writing to the directory an annexed file is in, to prevent the