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

import Data.Default in Common

Browse source
This commit is contained in:
Joey Hess 2015-01-28 16:11:28 -04:00
parent 0fd5f257d0
commit e8c376e0ad
19 changed files with 48 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Assistant/WebApp/Configurators/Unused.hs
View file

@ -26,11 +26,11 @@ data UnusedForm = UnusedForm
}
unusedForm :: UnusedForm -> Hamlet.Html -> MkMForm UnusedForm
unusedForm def msg = do
unusedForm d msg = do
(enableRes, enableView) <- mreq (selectFieldList enabledisable) (bfs "")
(Just $ enableExpire def)
(Just $ enableExpire d)
(whenRes, whenView) <- mreq intField (bfs "")
(Just $ expireWhen def)
(Just $ expireWhen d)
let form = do
webAppFormAuthToken
$(widgetFile "configurators/unused/form")