1 files changed, 13 insertions, 0 deletions
diff --git a/ServerList.hs b/ServerList.hs
new file mode 100644
index 0000000..685bc65
--- /dev/null
+++ b/ServerList.hs
@@ -0,0 +1,13 @@
+{- Copyright 2017 Joey Hess <id@joeyh.name>
+ -
+ - Licensed under the GNU AGPL version 3 or higher.
+ -}
+
+module ServerList where
+
+import Network.URI
+import Data.Maybe
+
+defaultServerUrl :: URI
+defaultServerUrl = fromMaybe (error "internal url parse error") $
+	parseURI "http://localhost:8081/"