port forwarding is working

frontend/Makefile

@@ -23,9 +23,14 @@ serve:
 ifeq ($(DEBUG),1)
 	elm-go src/Main.elm \
 		--dir=../public \
-		--start-page=index.html \
+		--port=8000 \
+		--start-page=../public/index.html \
 		--host=localhost \
-		-- --debug
+		--proxy-prefix=/ \
+		--proxy-host=http://localhost:8080 \
+		-- \
+		--debug \
+		--output=../public/elm.min.js
 else ifeq ($(RELEASE),1)
 	$(error Cannot use serve target with RELEASE=1)
 endif

frontend/src/Page/Landing.elm

@@ -1,28 +1,30 @@
 module Page.Landing exposing
     ( Model
     , Msg
-    , view
     , init
-    , update
     , subscriptions
+    , update
+    , view
     )
+
 import Element exposing (Element)
-import Websockets
+import Element.Background
-import Ports
+import Element.Input
+import EncodeDecode
+import Html.Attributes exposing (placeholder)
 import Json.Decode as Decode
 import Json.Encode as Encode exposing (Value)
-import Html.Attributes exposing (placeholder)
+import Ports
-import Element.Input
+import Websockets
-import Element.Background
 
-import EncodeDecode
 
-type alias Model = {
+type alias Model =
-    time : String,
+    { time : String
-    greetWidgetText : String,
+    , greetWidgetText : String
-    greeting : String
+    , greeting : String
     }
 
+
 type Msg
     = DownMsg EncodeDecode.DownMsg
     | UpMsg EncodeDecode.LandingUpMsg
@@ -30,15 +32,17 @@ type Msg
     | GreetWidgetText String
     | NoOp
 
+
 init : () -> ( Model, Cmd Msg )
-init flags = (
+init flags =
-    { time = "time not yet set"
+    ( { time = "time not yet set"
       , greetWidgetText = ""
       , greeting = ""
-    },
+      }
-    Cmd.none
+    , Cmd.none
     )
 
+
 subscriptions : Model -> Sub Msg
 subscriptions model =
     Ports.socketOnEvent
@@ -48,34 +52,50 @@ subscriptions model =
             (\_ -> NoOp)
             (\message ->
                 case Decode.decodeString EncodeDecode.downMsgDecoder message.data of
-                    Ok msg -> DownMsg msg
+                    Ok msg ->
-                    Err err -> DecodeError err
+                        DownMsg msg
+
+                    Err err ->
+                        DecodeError err
             )
             (\_ -> NoOp)
         )
 
+
 update : Msg -> Model -> ( Model, Cmd Msg )
 update msg model =
     case msg of
         DownMsg (EncodeDecode.LandingDownMsg (EncodeDecode.TimeUpdate time)) ->
             ( { model | time = time }, Cmd.none )
+
         DownMsg (EncodeDecode.LandingDownMsg (EncodeDecode.Greeting greeting)) ->
             ( { model | greeting = greeting }, Cmd.none )
+
         UpMsg upMsg ->
-            let cmd = Ports.socketSend <| EncodeDecode.upMsgEncoder <| EncodeDecode.LandingUpMsg upMsg
+            let
+                cmd =
+                    Ports.socketSend <| EncodeDecode.upMsgEncoder <| EncodeDecode.LandingUpMsg upMsg
             in
             ( model, cmd )
 
-        GreetWidgetText text -> ( {model | greetWidgetText = text}, Cmd.none )
+        GreetWidgetText text ->
-        _ -> (model, Cmd.none)
+            ( { model | greetWidgetText = text }, Cmd.none )
+
+        _ ->
+            ( model, Cmd.none )
+
 
 greetWidget : Model -> Element Msg
 greetWidget model =
     let
-        idleBlue = Element.rgb255 18 147 217
+        idleBlue =
-        focusBlue = Element.rgb255 18 125 184
+            Element.rgb255 18 147 217
 
-        myButton = Element.Input.button
+        focusBlue =
+            Element.rgb255 18 125 184
+
+        myButton =
+            Element.Input.button
                 [ Element.Background.color idleBlue
                 , Element.mouseOver [ Element.Background.color focusBlue ]
                 , Element.width (Element.fill |> Element.maximum 100)
@@ -84,9 +104,15 @@ greetWidget model =
                 { onPress = Just <| UpMsg <| EncodeDecode.RequestGreet model.greetWidgetText
                 , label = Element.text "Greet"
                 }
-        placeholder  = case model.greetWidgetText of
+
-            "" -> Just <| Element.Input.placeholder [] <| Element.text "Type Your Name"
+        placeholder =
-            _ -> Just <| Element.Input.placeholder [] <| Element.text ""
+            case model.greetWidgetText of
+                "" ->
+                    Just <| Element.Input.placeholder [] <| Element.text "Type Your Name"
+
+                _ ->
+                    Just <| Element.Input.placeholder [] <| Element.text ""
+
         textInput =
             Element.Input.text
                 [ Element.width (Element.fill |> Element.maximum 400)
@@ -97,17 +123,20 @@ greetWidget model =
                 , placeholder = placeholder
                 , label = Element.Input.labelHidden "Enter your name"
                 }
-        nameInput = Element.row [] [ textInput , myButton]
+
+        nameInput =
+            Element.row [] [ textInput, myButton ]
     in
     Element.column []
         [ nameInput
         , Element.text model.greeting
         ]
 
+
 view : Model -> Element Msg
 view model =
     Element.column []
-        [ Element.text "Landing"
+        [ Element.text "Landing..."
         , Element.text <| "Current time is : " ++ model.time
         , greetWidget model
         ]