From 229761fc4397ed3e8b137e65657a2583066d2764 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 20 Nov 2013 13:01:25 -0400
Subject: Write a dummy .git/HEAD if the file is missing, as git otherwise will
 not treat the repository as a git repo.

---
 Utility/FileMode.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Utility')

diff --git a/Utility/FileMode.hs b/Utility/FileMode.hs
index 1307d38..46c6a31 100644
--- a/Utility/FileMode.hs
+++ b/Utility/FileMode.hs
@@ -64,6 +64,10 @@ preventWrite f = modifyFileMode f $ removeModes writeModes
 allowWrite :: FilePath -> IO ()
 allowWrite f = modifyFileMode f $ addModes [ownerWriteMode]
 
+{- Turns a file's owner read bit back on. -}
+allowRead :: FilePath -> IO ()
+allowRead f = modifyFileMode f $ addModes [ownerReadMode]
+
 {- Allows owner and group to read and write to a file. -}
 groupSharedModes :: [FileMode]
 groupSharedModes =
-- 
cgit v1.2.3