make liftAnnex and liftAssistant polymorphic, like liftIO

2013-03-16 00:12:28 -04:00 · 2013-03-16 00:12:28 -04:00 · c94c99942b
commit c94c99942b
parent d640df7378
17 changed files with 66 additions and 50 deletions
--- a/Assistant/WebApp/Configurators/WebDAV.hs
+++ b/Assistant/WebApp/Configurators/WebDAV.hs
@ -108,7 +108,7 @@ getEnableWebDAVR uuid = do
 			FormSuccess input -> lift $
 				makeWebDavRemote name (toCredPair input) (const noop) M.empty
 			_ -> do
-				description <- lift $ liftAnnex $
+				description <- liftAnnex $
 					T.pack . concat <$> Remote.prettyListUUIDs [uuid]
 				$(widgetFile "configurators/enablewebdav")
 #else