standalone linux app nearly ready
also made several fixes that apply to the OSX app
This commit is contained in:
parent
f0d75cd928
commit
e88e3ba85b
11 changed files with 187 additions and 20 deletions
|
@ -13,7 +13,7 @@ import Assistant.Common
|
|||
import Assistant.WebApp
|
||||
import Assistant.WebApp.Types
|
||||
import Assistant.WebApp.SideBar
|
||||
import Assistant.Install (standaloneOSXAppBase)
|
||||
import Assistant.Install (standaloneAppBase)
|
||||
import Utility.Yesod
|
||||
import Build.SysConfig (packageversion)
|
||||
|
||||
|
@ -23,7 +23,7 @@ import Yesod
|
|||
- be read in and displayed. -}
|
||||
licenseFile :: IO (Maybe FilePath)
|
||||
licenseFile = do
|
||||
base <- standaloneOSXAppBase
|
||||
base <- standaloneAppBase
|
||||
return $ (</> "LICENSE") <$> base
|
||||
|
||||
getAboutR :: Handler RepHtml
|
||||
|
@ -39,7 +39,7 @@ getLicenseR = do
|
|||
case v of
|
||||
Nothing -> redirect AboutR
|
||||
Just f -> bootstrap (Just About) $ do
|
||||
sideBarDisplay
|
||||
-- no sidebar, just pages of legalese..
|
||||
setTitle "License"
|
||||
license <- liftIO $ readFile f
|
||||
$(widgetFile "documentation/license")
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue