From 380c1b0fd6c25dec3c924b82f1d721aa91a001da Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 30 Mar 2014 23:37:54 -0400
Subject: prepare for hackage

---
 PrivData.hs | 85 -------------------------------------------------------------
 1 file changed, 85 deletions(-)
 delete mode 100644 PrivData.hs

(limited to 'PrivData.hs')

diff --git a/PrivData.hs b/PrivData.hs
deleted file mode 100644
index d1e75c88..00000000
--- a/PrivData.hs
+++ /dev/null
@@ -1,85 +0,0 @@
-module PrivData where
-
-import qualified Data.Map as M
-import Control.Applicative
-import System.FilePath
-import System.IO
-import System.Directory
-import Data.Maybe
-import Control.Monad
-
-import Types
-import Property
-import Utility.Monad
-import Utility.PartialPrelude
-import Utility.Exception
-import Utility.Process
-import Utility.Tmp
-import Utility.SafeCommand
-import Utility.Misc
-
-{- Note that removing or changing field names will break the
- - serialized privdata files, so don't do that!
- - It's fine to add new fields. -}
-data PrivDataField
-	= DockerAuthentication
-	| SshPrivKey UserName
-	| Password UserName
-	deriving (Read, Show, Ord, Eq)
-
-withPrivData :: PrivDataField -> (String -> IO Result) -> IO Result
-withPrivData field a = maybe missing a =<< getPrivData field
-  where
-	missing = do
-		warningMessage $ "Missing privdata " ++ show field
-		return FailedChange
-
-getPrivData :: PrivDataField -> IO (Maybe String)
-getPrivData field = do
-	m <- catchDefaultIO Nothing $ readish <$> readFile privDataLocal
-	return $ maybe Nothing (M.lookup field) m
-
-setPrivData :: HostName -> PrivDataField -> IO ()
-setPrivData host field = do
-	putStrLn "Enter private data on stdin; ctrl-D when done:"
-	value <- hGetContentsStrict stdin
-	makePrivDataDir
-	let f = privDataFile host
-	m <- fromMaybe M.empty . readish <$> gpgDecrypt f
-	let m' = M.insert field value m
-	gpgEncrypt f (show m')
-	putStrLn "Private data set."
-	void $ boolSystem "git" [Param "add", File f]
-
-makePrivDataDir :: IO ()
-makePrivDataDir = createDirectoryIfMissing False privDataDir
-
-privDataDir :: FilePath
-privDataDir = "privdata"
-
-privDataFile :: HostName -> FilePath
-privDataFile host = privDataDir </> host ++ ".gpg"
-
-privDataLocal :: FilePath
-privDataLocal = privDataDir </> "local"
-
-privDataMarker :: String
-privDataMarker = "PRIVDATA "
-
-gpgDecrypt :: FilePath -> IO String
-gpgDecrypt f = ifM (doesFileExist f)
-	( readProcess "gpg" ["--decrypt", f]
-	, return ""
-	)
-
-gpgEncrypt :: FilePath -> String -> IO ()
-gpgEncrypt f s = do
-	encrypted <- writeReadProcessEnv "gpg"
-		[ "--default-recipient-self"
-		, "--armor"
-		, "--encrypt"
-		]
-		Nothing
-		(Just $ flip hPutStr s)
-		Nothing
-	viaTmp writeFile f encrypted
-- 
cgit v1.3-2-g0d8e