Thread the dict through the interaction loop.

Like a total newbie I put the call to the interpreter in the view
function instead of the update function!  I thought it was weird having
to specify the HTML twice, but I figured I was just doing it wrong.  I
was, but not in the way I suspected.

In any event, I like how this make it clear that errors can't affect the
dictionary.

implementations/Elm/src/Main.elm

@@ -22,13 +22,14 @@ main =
 
 type alias Model =
   { content : String
+  , evaluated : String
   , dictionary : JoyDict
   }
 
 
 init : Model
 init =
-  { content = "", dictionary = initialize Dict.empty }
+  { content = "", evaluated = "", dictionary = initialize Dict.empty }
 
 
 
@@ -43,7 +44,11 @@ update : Msg -> Model -> Model
 update msg model =
   case msg of
     Change newContent ->
-      { model | content = newContent }
+      case doit newContent model.dictionary of
+        Err err ->
+          { model | content = newContent, evaluated = err}
+        Ok (output, dict) ->
+          { content = newContent, evaluated = output, dictionary = dict }
 
 
 
@@ -52,15 +57,8 @@ update msg model =
 
 view : Model -> Html Msg
 view model =
-  case doit model.content model.dictionary of
-    Err msg ->
       div []
         [ input [ placeholder "Text to reverse", value model.content, onInput Change ] []
-        , div [] [ text msg ]
+        , div [] [ text model.evaluated ]
-        ]
-    Ok (message, dict0) ->
-      div []
-        [ input [ placeholder "Text to reverse", value model.content, onInput Change ] []
-        , div [] [ text message ]
         ]