Update video

src/Core.elm

@@ -185,11 +185,11 @@ update msg model =
                             ( [], Dict.empty )
 
                 time =
-                    case Maybe.map String.toInt (Dict.get "t" args) of
-                        Just (Just 0) ->
+                    case Dict.get "t" args of
+                        Just "0" ->
                             Nothing
 
-                        Just (Just t) ->
+                        Just t ->
                             Just t
 
                         _ ->

src/Ports.elm

@@ -1,7 +1,7 @@
 port module Ports exposing (eraseVideo, registerVideo)
 
 
-port registerVideo : ( String, String, Maybe Int ) -> Cmd msg
+port registerVideo : ( String, String, Maybe String ) -> Cmd msg
 
 
 port eraseVideo : () -> Cmd msg