diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-30 11:53:10 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-30 12:15:47 -0400 |
| commit | 9331a37b178c9142f5e864bbdc5434ea208946cc (patch) | |
| tree | 6431bc6cd3f09f8c64a51c780f7d549c3a6832ab /Role/Developer.hs | |
| parent | 5ddda2f7684857e90f45c37d030858773e96ee99 (diff) | |
| download | debug-me-9331a37b178c9142f5e864bbdc5434ea208946cc.tar.gz | |
make url work without --debug
Diffstat (limited to 'Role/Developer.hs')
| -rw-r--r-- | Role/Developer.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Role/Developer.hs b/Role/Developer.hs index 960a204..fc54c9f 100644 --- a/Role/Developer.hs +++ b/Role/Developer.hs @@ -35,14 +35,15 @@ import Data.Maybe import Control.Monad import Data.Monoid import Data.Time.Clock.POSIX +import Network.URI run :: DeveloperOpts -> IO () run = run' developer . debugUrl -run' :: (TMVar (TVar DeveloperState) -> TMChan (Message Entered) -> TMChan AnyMessage -> SessionID -> IO ()) -> UrlString -> IO () +run' :: (TMVar (TVar DeveloperState) -> TMChan (Message Entered) -> TMChan AnyMessage -> SessionID -> IO ()) -> URI -> IO () run' runner url = do app <- do - let connect = ConnectMode (T.pack url) + let connect = ConnectMode $ T.pack $ show url dsv <- newEmptyTMVarIO let recentactivity = developerStateRecentActivity dsv return $ clientApp connect recentactivity Developer Just $ |