remove dead code
This commit is contained in:
		
					parent
					
						
							
								f23ae9a45b
							
						
					
				
			
			
				commit
				
					
						ba62c3467b
					
				
			
		
					 1 changed files with 0 additions and 13 deletions
				
			
		| 
						 | 
				
			
			@ -17,7 +17,6 @@ module Annex.Perms (
 | 
			
		|||
	freezeContent,
 | 
			
		||||
	isContentWritePermOk,
 | 
			
		||||
	thawContent,
 | 
			
		||||
	chmodContent,
 | 
			
		||||
	createContentDir,
 | 
			
		||||
	freezeContentDir,
 | 
			
		||||
	thawContentDir,
 | 
			
		||||
| 
						 | 
				
			
			@ -157,18 +156,6 @@ isContentWritePermOk file = ifM crippledFileSystem
 | 
			
		|||
			Nothing -> True
 | 
			
		||||
			Just havemode -> havemode == combineModes (havemode:wantmode)
 | 
			
		||||
 | 
			
		||||
{- Adjusts read mode of annexed file per core.sharedRepository setting. -}
 | 
			
		||||
chmodContent :: RawFilePath -> Annex ()
 | 
			
		||||
chmodContent file = unlessM crippledFileSystem $
 | 
			
		||||
	withShared go
 | 
			
		||||
  where
 | 
			
		||||
	go GroupShared = liftIO $ void $ tryIO $ modifyFileMode file $
 | 
			
		||||
		addModes [ownerReadMode, groupReadMode]
 | 
			
		||||
	go AllShared = liftIO $ void $ tryIO $ modifyFileMode file $
 | 
			
		||||
		addModes readModes
 | 
			
		||||
	go _ = liftIO $ modifyFileMode file $
 | 
			
		||||
		addModes [ownerReadMode]
 | 
			
		||||
 | 
			
		||||
{- Allows writing to an annexed file that freezeContent was called on
 | 
			
		||||
 - before. -}
 | 
			
		||||
thawContent :: RawFilePath -> Annex ()
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue