diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-22 15:14:03 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-22 15:16:10 -0400 |
| commit | 3adfdf1ae27cd4b6419ce5be14ffb3712339065a (patch) | |
| tree | 9ce265ece85d2e3829eba85d964f2a123699f908 /Role/Downloader.hs | |
| parent | 7987157bfd99b8e2ec78f5030a49c2e16bf08321 (diff) | |
| download | debug-me-3adfdf1ae27cd4b6419ce5be14ffb3712339065a.tar.gz | |
add framing protocol for websockets
Diffstat (limited to 'Role/Downloader.hs')
| -rw-r--r-- | Role/Downloader.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/Role/Downloader.hs b/Role/Downloader.hs index 3981227..d327c8c 100644 --- a/Role/Downloader.hs +++ b/Role/Downloader.hs @@ -3,15 +3,13 @@ module Role.Downloader where import Types import Log import CmdLine -import WebSockets import SessionID import Control.Concurrent.STM -import qualified Data.Text as T -import Role.Developer (processSessionStart, getUserMessage, Output(..)) +import Role.Developer (run', processSessionStart, getUserMessage, Output(..)) run :: DownloadOpts -> IO () -run os = runClientApp $ clientApp (ConnectMode (T.pack (downloadUrl os))) downloader +run = run' downloader . downloadUrl downloader :: TChan (Message Entered) -> TChan (Message Seen) -> SessionID -> IO () downloader _ichan ochan sid = do |