<commit_before>module Salem.Boat where

import Html exposing (text, dl, dd, dt, div, Html)
import Html.Attributes exposing (id, style)
import Signal exposing ((<~))

import Salem.Boat.Tiller as Tiller
import Salem.Boat.Sheet as Sheet
import Salem.Component as Component


type alias Model =
  { tiller : Tiller.Model
  , sheet : Sheet.Model
  }


init : Model
init =
  { tiller = Tiller.init
  , sheet = Sheet.init
  }


type Action
  = TillerAction Tiller.Action
  | SheetAction Sheet.Action


update : Action -> Model -> Model
update action m =
  case action of
    TillerAction action' -> { m | tiller <- Tiller.update action' m.tiller }
    SheetAction action' -> { m | sheet <- Sheet.update action' m.sheet }


view : Model -> Html
view m =
  dl []
    [ dt [] [ text "Tiller:" ]
    , dd [] [ Tiller.view m.tiller ]
    , dt [] [ text "Sheet:" ]
    , dd [] [ Sheet.view m.sheet ]
    , dt [] [ text "The Boat:"]<commit_msg>Put key instructions in for controls<commit_after>module Salem.Boat where

import Html exposing (text, dl, dd, dt, div, Html)
import Html.Attributes exposing (id, style)
import Signal exposing ((<~))

import Salem.Boat.Tiller as Tiller
import Salem.Boat.Sheet as Sheet
import Salem.Component as Component


type alias Model =
  { tiller : Tiller.Model
  , sheet : Sheet.Model
  }


init : Model
init =
  { tiller = Tiller.init
  , sheet = Sheet.init
  }


type Action
  = TillerAction Tiller.Action
  | SheetAction Sheet.Action


update : Action -> Model -> Model
update action m =
  case action of
    TillerAction action' -> { m | tiller <- Tiller.update action' m.tiller }
    SheetAction action' -> { m | sheet <- Sheet.update action' m.sheet }


view : Model -> Html
view m =
  dl []
    [ dt [] [ text "Tiller: (←, →)" ]
    , dd [] [ Tiller.view m.tiller ]
    , dt [] [ text "Sheet: (a, d)" ]
    , dd [] [ Sheet.view m.sheet ]
    , dt [] [ text "The Boat:"]
{'fraction_non_alphanumeric': 0.12967843964153927, 'fraction_numerical': 0.0, 'mean_word_length': 2.905349794238683, 'pattern_counts': {'":': 0, '<': 9, '<?xml version=': 0, '>': 13, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '7417380', 'n_tokens_mistral': 682, 'n_tokens_neox': 627, 'n_words': 204}