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

clean up build warnings with yesod 1.2, while still building with 1.1

Browse source
This commit is contained in:
Joey Hess 2013-06-27 01:15:28 -04:00
parent b44c978e2c
commit ff4f008591
23 changed files with 149 additions and 137 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Assistant/WebApp/Documentation.hs
View file

@ -21,12 +21,12 @@ licenseFile = do
base <- standaloneAppBase
return $ (</> "LICENSE") <$> base
getAboutR :: Handler RepHtml
getAboutR :: Handler Html
getAboutR = page "About git-annex" (Just About) $ do
builtinlicense <- isJust <$> liftIO licenseFile
$(widgetFile "documentation/about")
getLicenseR :: Handler RepHtml
getLicenseR :: Handler Html
getLicenseR = do
v <- liftIO licenseFile
case v of
@ -37,6 +37,6 @@ getLicenseR = do
license <- liftIO $ readFile f
$(widgetFile "documentation/license")
getRepoGroupR :: Handler RepHtml
getRepoGroupR :: Handler Html
getRepoGroupR = page "About repository groups" (Just About) $ do
$(widgetFile "documentation/repogroup")