mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

webapp: Switch all forms to POST.

Browse source
This commit is contained in:
Joey Hess 2013-03-16 18:48:23 -04:00
parent 26374f40a9
commit 140774a8c8
25 changed files with 122 additions and 75 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Assistant/WebApp/Configurators/Preferences.hs
View file

@ -8,7 +8,8 @@
{-# LANGUAGE QuasiQuotes, TemplateHaskell, OverloadedStrings #-}
module Assistant.WebApp.Configurators.Preferences (
getPreferencesR
getPreferencesR,
postPreferencesR
) where
import Assistant.WebApp.Common
@ -82,10 +83,12 @@ storePrefs p = do
if debugEnabled p then DEBUG else WARNING
getPreferencesR :: Handler RepHtml
getPreferencesR = page "Preferences" (Just Configuration) $ do
getPreferencesR = postPreferencesR
postPreferencesR :: Handler RepHtml
postPreferencesR = page "Preferences" (Just Configuration) $ do
((result, form), enctype) <- lift $ do
current <- liftAnnex getPrefs
runFormGet $ renderBootstrap $ prefsAForm current
runFormPost $ renderBootstrap $ prefsAForm current
case result of
FormSuccess new -> lift $ do
liftAnnex $ storePrefs new