Fix exemplar / tests

Author: ceddlyburge

exercises/concept/paulas-palindromes/.meta/Exemplar.elm

@@ -1,4 +1,4 @@
-module Main exposing (Msg(..), init, main, update, view)
+module Main exposing (Msg(..), Model, init, main, update, view)
 
 import Browser
 import Html exposing (Html, div, input, text)

exercises/concept/paulas-palindromes/tests/Tests.elm

@@ -15,15 +15,15 @@ tests =
             [ test "Model is exposed" <|
                 \_ ->
                     let
-                        identity : Model -> Model
+                        identity : Main.Model -> Main.Model
                         identity model =
                             model
                     in
                     Expect.pass
             , test "Msg is exposed" <|
                 \_ ->
                     let
-                        identity : Msg -> msg
+                        identity : Msg -> Msg
                         identity msg =
                             msg
                     in
@@ -32,7 +32,7 @@ tests =
         , describe "2"
             [ test "update should change the model content" <|
                 \_ ->
-                    update (Msg.Change "new content") { content = "" }
+                    update (Main.Change "new content") { content = "" }
                         |> Expect.equal { content = "new content" }
             ]
         , describe "3"
@@ -52,7 +52,7 @@ tests =
                         |> Query.fromHtml
                         |> Query.find [ tag "input" ]
                         |> Event.simulate (Event.input "cat")
-                        |> Event.expect (Msg.Change "cat")
+                        |> Event.expect (Main.Change "cat")
             ]
         , describe "4"
             [ test "init should return a model empty content" <|