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

Fix build of assistant without yesod.

Browse source
This commit is contained in:
Joey Hess 2012-11-13 15:36:34 -04:00
parent b74bebc563
commit c9d58a6590
4 changed files with 14 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Assistant/NetMessager.hs
View file

@ -9,7 +9,6 @@ module Assistant.NetMessager where
import Assistant.Common
import Assistant.Types.NetMessager
import qualified Types.Remote as Remote
import qualified Git
import Control.Concurrent
@ -17,7 +16,6 @@ import Control.Concurrent.STM
import Control.Concurrent.MSampleVar
import Control.Exception as E
import qualified Data.Set as S
import qualified Data.Text as T
sendNetMessage :: NetMessage -> Assistant ()
sendNetMessage m =
@ -95,3 +93,4 @@ queueNetPushMessage _ = return False
waitNetPushMessage :: PushSide -> Assistant (NetMessage)
waitNetPushMessage side = (atomically . readTChan)
<<~ (getSide side . netMessagesPush . netMessager)