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

no longer need webapp state storage! excellent

Browse source
This commit is contained in:
Joey Hess 2013-03-15 01:01:25 -04:00
parent 8ca2aa1cba
commit 9cf4701a8f
3 changed files with 0 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Assistant/WebApp/Types.hs
View file

@ -26,7 +26,6 @@ import Yesod
import Yesod.Static
import Text.Hamlet
import Data.Text (Text, pack, unpack)
import Control.Concurrent.STM
publicFiles "static"
@ -37,7 +36,6 @@ data WebApp = WebApp
, secretToken :: Text
, relDir :: Maybe FilePath
, getStatic :: Static
, webAppState :: TMVar WebAppState
, postFirstRun :: Maybe (IO String)
, noAnnex :: Bool
}
@ -75,10 +73,6 @@ instance RenderMessage WebApp FormMessage where
type Form x = Html -> MForm WebApp WebApp (FormResult x, Widget)
data WebAppState = WebAppState
{ showIntro :: Bool -- should the into message be displayed?
}
data RepoSelector = RepoSelector
{ onlyCloud :: Bool
, onlyConfigured :: Bool