fix build with newer yesod

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

View file

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