From 9c9a3c10cefcf02616c9da171b062f478a7b5c1d Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 20 Nov 2013 13:42:13 -0400
Subject: [PATCH] add allowRead

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

diff --git a/Utility/FileMode.hs b/Utility/FileMode.hs
index 1307d3842b..46c6a31f5f 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 =