fix build fail with old yesod (or something)

Avoid MonadIO constraint by using liftAnnex to get to liftIO.

Assistant/WebApp/Gpg.hs

@@ -85,9 +85,9 @@ getGCryptRemoteName u repoloc = do
  - Since the probing requires gcrypt to be installed, a third action must
  - be provided to run if it's not installed.
  -}
-checkGCryptRepoEncryption :: (Monad m, MonadIO m, LiftAnnex m) => String -> m a -> m a -> m a -> m a
+checkGCryptRepoEncryption :: (Monad m, LiftAnnex m) => String -> m a -> m a -> m a -> m a
 checkGCryptRepoEncryption location notencrypted notinstalled encrypted = 
-	ifM (liftIO isGcryptInstalled)
+	ifM (liftAnnex $ liftIO isGcryptInstalled)
 		( dispatch =<< liftAnnex (inRepo $ Git.GCrypt.probeRepo location)
 		, notinstalled
 		)

doc/bugs/build_fails_in_Assistant__47__WebApp__47__Gpg.hs.mdwn

@@ -53,3 +53,5 @@ Assistant/WebApp/Gpg.hs:88:40:
 
 # End of transcript or log.
 """]]
+
+> [[fixed|done]] --[[Joey]]