diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-09-18 17:50:07 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-09-18 17:50:07 -0400 |
| commit | 18bae020ede6770dfbe00a3335c0e9f8b7f7fdf6 (patch) | |
| tree | 74eb967c26258c40649e80d8992aee556b04f6f0 /Assistant/WebApp/Types.hs | |
| parent | 467844d7d3f703f99fcde1f951f33efda5e90074 (diff) | |
make other repositories list list all autostarted repos
And add a form to add another, unrelated repository
Diffstat (limited to 'Assistant/WebApp/Types.hs')
| -rw-r--r-- | Assistant/WebApp/Types.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Assistant/WebApp/Types.hs b/Assistant/WebApp/Types.hs index c00150b65..4198cd428 100644 --- a/Assistant/WebApp/Types.hs +++ b/Assistant/WebApp/Types.hs @@ -65,7 +65,8 @@ instance RenderMessage WebApp FormMessage where type Form x = Html -> MForm WebApp WebApp (FormResult x, Widget) data WebAppState = WebAppState - { showIntro :: Bool + { showIntro :: Bool -- should the into message be displayed? + , otherRepos :: [(String, String)] -- name and path to other repos } instance PathPiece SshData where |