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

fix compat with old yesod

Browse source
This commit is contained in:
Joey Hess 2013-11-25 15:14:34 -04:00
parent 215fe3c028
commit a7e1dadf50
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Assistant/WebApp/Notifications.hs
View file

@ -99,8 +99,8 @@ getRepoListBroadcaster = syncRemotesNotifier <$> getDaemonStatus
getGlobalRedirBroadcaster :: Assistant NotificationBroadcaster getGlobalRedirBroadcaster :: Assistant NotificationBroadcaster
getGlobalRedirBroadcaster = globalRedirNotifier <$> getDaemonStatus getGlobalRedirBroadcaster = globalRedirNotifier <$> getDaemonStatus
getGlobalRedirR :: NotificationId -> Handler Text getGlobalRedirR :: NotificationId -> Handler RepPlain
getGlobalRedirR nid = do getGlobalRedirR nid = do
waitNotifier getGlobalRedirBroadcaster nid waitNotifier getGlobalRedirBroadcaster nid
maybe (getGlobalRedirR nid) (return . T.pack) maybe (getGlobalRedirR nid) (return . RepPlain . toContent . T.pack)
=<< globalRedirUrl <$> liftAssistant getDaemonStatus =<< globalRedirUrl <$> liftAssistant getDaemonStatus