update

elm.json

@@ -8,9 +8,12 @@
         "direct": {
             "elm/browser": "1.0.2",
             "elm/core": "1.0.5",
-            "elm/html": "1.0.0"
+            "elm/html": "1.0.0",
+            "elm/http": "2.0.0"
         },
         "indirect": {
+            "elm/bytes": "1.0.8",
+            "elm/file": "1.0.5",
             "elm/json": "1.1.3",
             "elm/time": "1.0.0",
             "elm/url": "1.0.0",

src/HTTP.elm

@@ -0,0 +1,85 @@
+module HTTP exposing (..)
+
+import Browser
+import Html exposing (Html, pre, text)
+import Http
+
+
+
+-- MAIN
+
+
+main : Program () Model Msg
+main =
+    Browser.element
+        { init = init
+        , update = update
+        , subscriptions = subscriptions
+        , view = view
+        }
+
+
+
+-- MODEL
+
+
+type Model
+    = Failure
+    | Loading
+    | Success String
+
+
+init : () -> ( Model, Cmd Msg )
+init _ =
+    ( Loading
+    , Http.get
+        { url = "https://elm-lang.org/assets/public-opinion.txt"
+        , expect = Http.expectString GotText
+        }
+    )
+
+
+
+-- UPDATE
+
+
+type Msg
+    = GotText (Result Http.Error String)
+
+
+update : Msg -> Model -> ( Model, Cmd Msg )
+update msg model =
+    case msg of
+        GotText result ->
+            case result of
+                Ok fullText ->
+                    ( Success fullText, Cmd.none )
+
+                Err _ ->
+                    ( Failure, Cmd.none )
+
+
+
+-- SUBSCRIPTIONS
+
+
+subscriptions : Model -> Sub Msg
+subscriptions model =
+    Sub.none
+
+
+
+-- VIEW
+
+
+view : Model -> Html Msg
+view model =
+    case model of
+        Failure ->
+            text "I was unable to load your book."
+
+        Loading ->
+            text "Loading..."
+
+        Success fullText ->
+            pre [] [ text fullText ]

src/PasswordValidation.elm

@@ -1,4 +1,5 @@
 module PasswordValidation exposing (..)
+
 import Browser
 import Html exposing (..)
 import Html.Attributes exposing (..)
@@ -25,7 +26,8 @@ type alias Model =
 
 
 init : Model
-init = Model "" "" ""
+init =
+    Model "" "" ""
 
 
 
@@ -64,28 +66,41 @@ view model =
         , viewValidation model
         ]
 
+
 viewInput : String -> String -> String -> (String -> msg) -> Html msg
 viewInput t p v toMsg =
     input [ type_ t, placeholder p, value v, onInput toMsg ] []
 
+
 viewValidation : Model -> Html msg
 viewValidation model =
     if List.length (passwordHints model.password) > 0 then
         div [ style "color" "red" ] (passwordHints model.password)
+
     else if model.password /= model.passwordAgain then
         div [ style "color" "red" ] [ text "Passwords do not match!" ]
+
     else
         div [ style "color" "green" ] [ text "OK" ]
 
+
 passwordHints : String -> List (Html msg)
 passwordHints s =
-  (optional (String.length s <= 8) (text "Password must be at least 8 characters. "))
+    optional (String.length s <= 8) (text "Password must be at least 8 characters. ")
-  ++ (optional (String.toUpper s == s) (text "Password must contain an uppercase letter. "))
+        ++ optional (String.toUpper s == s) (text "Password must contain an uppercase letter. ")
-  ++ (optional (String.toLower s == s) (text "Password must contain a lowercase letter. "))
+        ++ optional (String.toLower s == s) (text "Password must contain a lowercase letter. ")
-  ++ (optional (not (containsNumeric s)) (text "Password must contain a number. "))
+        ++ optional (not (containsNumeric s)) (text "Password must contain a number. ")
+
 
 optional : Bool -> Html msg -> List (Html msg)
-optional b xs = if b then [xs] else []
+optional b xs =
+    if b then
+        [ xs ]
+
+    else
+        []
+
 
 containsNumeric : String -> Bool
-containsNumeric s = List.any (\b -> b) (List.map (\x -> String.contains x s) ["1", "2", "3", "4", "5", "6", "7", "8", "9", "0"])
+containsNumeric s =
+    List.any (\b -> b) (List.map (\x -> String.contains x s) [ "1", "2", "3", "4", "5", "6", "7", "8", "9", "0" ])