diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-13 15:36:34 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-13 15:36:34 -0400 |
| commit | c5a3698d1b994c5149d417852f690cf3864bce74 (patch) | |
| tree | b0af7f38af7e06149c0c075763bd27f28105b2a6 /Assistant/NetMessager.hs | |
| parent | a78e4b007efaedf7e04ce33aa855cfae47033aeb (diff) | |
Fix build of assistant without yesod.
Diffstat (limited to 'Assistant/NetMessager.hs')
| -rw-r--r-- | Assistant/NetMessager.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Assistant/NetMessager.hs b/Assistant/NetMessager.hs index d9450ad27..05dfd05a3 100644 --- a/Assistant/NetMessager.hs +++ b/Assistant/NetMessager.hs @@ -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) + |