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

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

(limited to 'Utility/FileMode.hs')

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