From 3adfdf1ae27cd4b6419ce5be14ffb3712339065a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 22 Apr 2017 15:14:03 -0400 Subject: add framing protocol for websockets --- CmdLine.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'CmdLine.hs') diff --git a/CmdLine.hs b/CmdLine.hs index 663c63e..f00f0be 100644 --- a/CmdLine.hs +++ b/CmdLine.hs @@ -21,16 +21,18 @@ data UserOpts = UserOpts { cmdToRun :: Maybe (String, [String]) } +type UrlString = String + data DeveloperOpts = DeveloperOpts - { debugUrl :: String + { debugUrl :: UrlString } data DownloadOpts = DownloadOpts - { downloadUrl :: String + { downloadUrl :: UrlString } data WatchOpts = WatchOpts - { watchUrl :: String + { watchUrl :: UrlString } data GraphvizOpts = GraphvizOpts -- cgit v1.2.3