<commit_before>module Main where

import Signal exposing (forwardTo)
import StartApp
import Effects
import Task

import Html exposing (div, span, strong, text)

import Ui.Container
import Ui.Button
import Ui.App
import Ui

type alias Model =
  { app : Ui.App.Model
  , counter : Int
  }

type Action
  = App Ui.App.Action
  | Increment
  | Decrement

init : Model
init =
  { app = Ui.App.init "Elm-UI Project"
  , counter = 0
  }

update : Action -> Model -> (Model, Effects.Effects Action)
update action model =
  case action of
    App act ->
      let
        (app, effect) = Ui.App.update act model.app
      in
        ({ model | app = app }, Effects.map App effect)

    Increment ->
      ({ model | counter = model.counter + 1 }, Effects.none)

    Decrement ->
      ({ model | counter = model.counter - 1 }, Effects.none)

view : Signal.Address Action -> Model -> Html.Html
view address model =
  Ui.App.view (forwardTo address App) model.app
    [ Ui.Container.column []
      [ Ui.title [] [text "Elm-UI Counter"]
      , Ui.text "This is an minimal project to get you started with Elm-UI!"
      , div []
        [ span [] [text "Counter:"]
        , strong [] [text (toString model.counter)]
        ]<commit_msg>Fix scaffolded app.<commit_after>module Main where

import Signal exposing (forwardTo)
import StartApp
import Effects
import Task

import Html exposing (div, span, strong, text)

import Ui.Container
import Ui.Button
import Ui.App
import Ui

type alias Model =
  { app : Ui.App.Model
  , counter : Int
  }

type Action
  = App Ui.App.Action
  | Increment
  | Decrement

init : Model
init =
  { app = Ui.App.init "Elm-UI Project"
  , counter = 0
  }

update : Action -> Model -> (Model, Effects.Effects Action)
update action model =
  case action of
    App act ->
      let
        (app, effect) = Ui.App.update act model.app
      in
        ({ model | app = app }, Effects.map App effect)

    Increment ->
      ({ model | counter = model.counter + 1 }, Effects.none)

    Decrement ->
      ({ model | counter = model.counter - 1 }, Effects.none)

view : Signal.Address Action -> Model -> Html.Html
view address model =
  Ui.App.view (forwardTo address App) model.app
    [ Ui.Container.column []
      [ Ui.title [] [text "Elm-UI Counter"]
      , Ui.textBlock "This is an minimal project to get you started with Elm-UI!"
      , div []
        [ span [] [text "Counter:"]
        , strong [] [text (toString model.counter)]
        ]
{'fraction_non_alphanumeric': 0.11561866125760649, 'fraction_numerical': 0.002434077079107505, 'mean_word_length': 2.5128205128205128, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 17, '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': '651802', 'n_tokens_mistral': 813, 'n_tokens_neox': 775, 'n_words': 256}