add framing protocol for websockets

1 files changed, 5 insertions, 3 deletions

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