mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

webapp: Initial support for setting up encrypted removable drives.

Browse source 
No support yet for generating new gpg keys.
No support yet for adding existing encrypted repos from removable drives.
This commit is contained in:
Joey Hess 2013-09-16 16:07:27 -04:00
parent f53526501d
commit b37aad6c06
9 changed files with 93 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Assistant/WebApp/Form.hs
View file

@ -75,7 +75,7 @@ withExpandableNote field (toggle, note) = withNote field $ [whamlet|
where
ident = "toggle_" ++ toggle
data EnableEncryption = SharedEncryption | NoEncryption
data EnableEncryption = HybridEncryption | SharedEncryption | NoEncryption
deriving (Eq)
{- Adds a check box to an AForm to control encryption. -}
@ -96,3 +96,4 @@ enableEncryptionField = areq (selectFieldList choices) "Encryption" (Just Shared
configureEncryption :: EnableEncryption -> (RemoteConfigKey, String)
configureEncryption SharedEncryption = ("encryption", "shared")
configureEncryption NoEncryption = ("encryption", "none")
configureEncryption HybridEncryption = ("encryption", "hybrid")