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

fix build with newer yesod

Browse source
This commit is contained in:
Joey Hess 2013-04-26 15:06:18 -04:00
parent d660a76c33
commit b4f4ed7d93
2 changed files with 1 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/WebApp/Configurators/Edit.hs
View file

@ -151,7 +151,7 @@ editRepositoryAForm def = RepoConfig
help = [whamlet|<a href="@{RepoGroupR}">What's this?</a>|] help = [whamlet|<a href="@{RepoGroupR}">What's this?</a>|]
associateddirectory = case repoAssociatedDirectory def of associateddirectory = case repoAssociatedDirectory def of
Nothing -> aopt dummyField "" Nothing Nothing -> aopt hiddenField "" Nothing
Just d -> aopt textField "Associated directory" (Just $ Just d) Just d -> aopt textField "Associated directory" (Just $ Just d)
getEditRepositoryR :: UUID -> Handler RepHtml getEditRepositoryR :: UUID -> Handler RepHtml

7
Assistant/WebApp/Form.hs
View file

@ -39,13 +39,6 @@ passwordField = F.passwordField
|] |]
} }
{- Useful in an AForm when sometimes a field is not used. -}
dummyField :: RenderMessage master FormMessage => Field sub master Text
dummyField = Field
{ fieldView = \_theId _name _attrs _val _isReq -> return ()
, fieldParse = const $ return $ Right Nothing
}
{- Makes a note widget be displayed after a field. -} {- Makes a note widget be displayed after a field. -}
withNote :: Field sub master v -> GWidget sub master () -> Field sub master v withNote :: Field sub master v -> GWidget sub master () -> Field sub master v
withNote field note = field { fieldView = newview } withNote field note = field { fieldView = newview }