work around yesod bug that causes a warning

I think this is fixed in newer versions of yesod, so this commit can be
reverted when dropping support for Debian wheezy.
This commit is contained in:
Joey Hess 2013-02-27 18:30:11 -04:00
parent 54cbbe460c
commit 95a244d9c4
4 changed files with 13 additions and 4 deletions

View file

@ -164,8 +164,8 @@ getNewRepositoryR = page "Add another repository" (Just Configuration) $ do
mainrepo <- fromJust . relDir <$> lift getYesod
$(widgetFile "configurators/newrepository/combine")
getCombineRepositoryR :: FilePath -> UUID -> Handler RepHtml
getCombineRepositoryR newrepopath newrepouuid = do
getCombineRepositoryR :: FilePathAndUUID -> Handler RepHtml
getCombineRepositoryR (FilePathAndUUID newrepopath newrepouuid) = do
r <- combineRepos newrepopath remotename
syncRemote r
redirect $ EditRepositoryR newrepouuid