better liftAnnex, avoid using runAnnex undefined
This commit is contained in:
parent
5274713305
commit
907b0c0d78
15 changed files with 61 additions and 59 deletions
|
@ -84,11 +84,11 @@ storePrefs p = do
|
|||
getPreferencesR :: Handler RepHtml
|
||||
getPreferencesR = page "Preferences" (Just Configuration) $ do
|
||||
((result, form), enctype) <- lift $ do
|
||||
current <- runAnnex undefined getPrefs
|
||||
current <- liftAnnex getPrefs
|
||||
runFormGet $ renderBootstrap $ prefsAForm current
|
||||
case result of
|
||||
FormSuccess new -> lift $ do
|
||||
runAnnex undefined $ storePrefs new
|
||||
liftAnnex $ storePrefs new
|
||||
redirect ConfigurationR
|
||||
_ -> $(widgetFile "configurators/preferences")
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue