check if git-remote-gcrypt is installed

Assistant/WebApp/Configurators/Local.hs

@@ -274,21 +274,13 @@ cloneModal = $(widgetFile "configurators/adddrive/clonemodal")
 
 getFinishAddDriveR :: RemovableDriveKey -> Handler Html
 getFinishAddDriveR (RemovableDriveKey drive mkeyid) =
-	make >>= redirect . EditNewRepositoryR
+	maybe setupclear setupencrypted mkeyid
   where
-  	make = do
+	setupclear = makewith $ \isnew -> (,)
-		liftIO $ createDirectoryIfMissing True dir
+		<$> liftIO (initRepo isnew False dir $ Just remotename)
-		isnew <- liftIO $ makeRepo dir True
+		<*> combineRepos dir remotename
-		{- Removable drives are not reliable media, so enable fsync. -}
+	setupencrypted keyid = ifM (liftIO $ inPath "git-remote-gcrypt")
-		liftIO $ inDir dir $
+		( makewith $ \_ -> do
-			setConfig (ConfigKey "core.fsyncobjectfiles")
-				(Git.Config.boolConfig True)
-		maybe (setupclear isnew) setupencrypted mkeyid
-	setupclear isnew = do
-		u <- liftIO $ initRepo isnew False dir $ Just remotename
-		r <- combineRepos dir remotename
-		finishsetup u r
-	setupencrypted keyid = do
 			r <- liftAnnex $ addRemote $ 
 				initSpecialRemote remotename GCrypt.remote $ M.fromList
 					[ ("type", "gcrypt")
@@ -296,11 +288,21 @@ getFinishAddDriveR (RemovableDriveKey drive mkeyid) =
 					, configureEncryption HybridEncryption
 					, ("keyid", keyid)
 					]
-		finishsetup (Types.Remote.uuid r) r
+			return (Types.Remote.uuid r, r)
-	finishsetup u r = do
+		, page "Encrypt repository" (Just Configuration) $
+			$(widgetFile "configurators/needgcrypt")
+		)
+	makewith a = do
+		liftIO $ createDirectoryIfMissing True dir
+		isnew <- liftIO $ makeRepo dir True
+		{- Removable drives are not reliable media, so enable fsync. -}
+		liftIO $ inDir dir $
+			setConfig (ConfigKey "core.fsyncobjectfiles")
+				(Git.Config.boolConfig True)
+		(u, r) <- a isnew
 		liftAnnex $ setStandardGroup u TransferGroup
 		liftAssistant $ syncRemote r
-		return u
+		redirect $ EditNewRepositoryR u
   	mountpoint = T.unpack (mountPoint drive)
 	dir = removableDriveRepository drive
 	remotename = takeFileName mountpoint

templates/configurators/needgcrypt.hamlet

@@ -0,0 +1,10 @@
+<div .span9 .hero-unit>
+  <h2>
+    Need git-remote-gcrypt
+  <p>
+    To encrypt git repositories, you need to install #
+    <a href="https://github.com/joeyh/git-remote-gcrypt">
+      git-remote-gcrypt
+  <p>
+    <a .btn .btn-primary .btn-large href="">
+      Retry