remove another sum type that was only needed to work around a bug in old yesod

And the bug is only a warning message at compile time..
This commit is contained in:
Joey Hess 2013-09-27 00:35:37 -04:00
parent 1f5611a1ca
commit 5bd5e604ad
4 changed files with 5 additions and 11 deletions

View file

@ -27,6 +27,7 @@ import Git.Config
import Git.Remote
import Assistant.Sync
import Config.Cost
import Utility.NotificationBroadcaster
import qualified Git
#ifdef WITH_XMPP
#endif
@ -83,8 +84,8 @@ notWanted _ = False
-
- Returns a div, which will be inserted into the calling page.
-}
getRepoListR :: RepoListNotificationId -> Handler Html
getRepoListR (RepoListNotificationId nid reposelector) = do
getRepoListR :: NotificationId -> RepoSelector -> Handler Html
getRepoListR nid reposelector = do
waitNotifier getRepoListBroadcaster nid
p <- widgetToPageContent $ repoListDisplay reposelector
giveUrlRenderer $ [hamlet|^{pageBody p}|]