make liftAnnex and liftAssistant polymorphic, like liftIO
This commit is contained in:
parent
d640df7378
commit
c94c99942b
17 changed files with 66 additions and 50 deletions
|
@ -133,7 +133,7 @@ getEnableRsyncR u = do
|
|||
_ -> redirect AddSshR
|
||||
where
|
||||
showform form enctype status = do
|
||||
description <- lift $ liftAnnex $
|
||||
description <- liftAnnex $
|
||||
T.pack . concat <$> prettyListUUIDs [u]
|
||||
$(widgetFile "configurators/ssh/enable")
|
||||
enable sshdata = lift $ redirect $ ConfirmSshR $
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue