Upgraded to 18

Author: Charles Scalfani

Test/App.elm

@@ -1,7 +1,6 @@
 port module Test.App exposing (..)
 
-import Html exposing (..)
-import Html.App
+import Platform
 import Time exposing (..)
 import Websocket exposing (..)
 import Listener
@@ -53,11 +52,10 @@ init =
         model ! [ Websocket.startServer ServerError ServerStatus UnhandledMessage Nothing Nothing model.wsPort ]
 
 
-main : Program Never
+main : Program Never Model Msg
 main =
-    Html.App.program
+    Platform.program
         { init = init
-        , view = (\_ -> text "")
         , update = update
         , subscriptions = subscriptions
         }

aBuild.sh

@@ -0,0 +1 @@
+rm -r elm-stuff/build-artifacts && elm make Test/App.elm --output elm.js

buildTest.sh build.sh

@@ -1,5 +1,5 @@
 {
-    "version": "2.0.0",
+    "version": "3.0.0",
     "summary": "Websocket Server Effects Manager for Elm",
     "repository": "https://github.com/panosoft/elm-websocket-server.git",
     "license": "Unlicense",
@@ -12,9 +12,8 @@
     ],
     "native-modules": true,
     "dependencies": {
-        "elm-lang/core": "4.0.5 <= v < 5.0.0",
-        "elm-lang/html": "1.1.0 <= v < 2.0.0",
-        "panosoft/elm-debugf": "1.0.0 <= v < 2.0.0"
+        "elm-lang/core": "5.0.0 <= v < 6.0.0",
+        "panosoft/elm-debugf": "2.0.0 <= v < 3.0.0"
     },
-    "elm-version": "0.17.1 <= v < 0.18.0"
+    "elm-version": "0.18.0 <= v < 0.19.0"
 }

elm-package.json

@@ -30,6 +30,7 @@ The native driver is https://github.com/websockets/ws
 
 -}
 
+import Tuple exposing (first, second)
 import Dict exposing (Dict)
 import Task exposing (Task)
 import DebugF exposing (log, toStringF)
@@ -216,12 +217,12 @@ type alias State msg =
 
 (&>) : Task x a -> Task x b -> Task x b
 (&>) t1 t2 =
-    t1 `Task.andThen` \_ -> t2
+    t1 |> Task.andThen (\_ -> t2)
 
 
 (&>>) : Task x a -> (a -> Task x b) -> Task x b
 (&>>) t1 f =
-    t1 `Task.andThen` f
+    t1 |> Task.andThen f
 
 
 
@@ -490,8 +491,8 @@ getServer state wsPort =
 listenerTaggers : State msg -> WSPort -> Maybe Path -> List (ListenerTaggers msg)
 listenerTaggers state wsPort maybePath =
     Dict.toList state.listeners
-        |> List.filter (\( ( wsPort', path ), taggers ) -> wsPort' == wsPort && maybePath |?> (\path' -> path' == path) ?= True)
-        |> List.map snd
+        |> List.filter (\( ( wsPort_, path ), taggers ) -> wsPort_ == wsPort && maybePath |?> (\path_ -> path_ == path) ?= True)
+        |> List.map second
 
 
 withListenerTaggers : State msg -> WSPort -> Maybe Path -> (List (ListenerTaggers msg) -> Task Never (State msg)) -> Task Never (State msg)