Add simple cover which lets users create new links

1 files changed, 2 insertions, 2 deletions

diff --git a/picarones-elm/src/Main.elm b/picarones-elm/src/Main.elm
index 014d2f4..6e69fe4 100644
--- a/picarones-elm/src/Main.elm
+++ b/picarones-elm/src/Main.elm
@@ -36,7 +36,7 @@ type alias Model = { slide : Int, max : Int, prefix : String }
 
  -- start at the first slide, for now just assume that we have ten slides
 init : (String, Int) -> (Model, Cmd Msg)
-init (url, max) = ( { slide = 0, max = max, prefix = url ++ "/"}, Cmd.none)
+init (url, max) = ( { slide = 0, max = max, prefix = url}, Cmd.none)
 
  -- possible state transitions:
 type Msg = GotMessage String
@@ -102,7 +102,7 @@ padNum l num =
 
 
 view : Model -> Browser.Document Msg
-view model = { title = "Websockets example"
+view model = { title = "Picarones"
              , body = [body model]
              }