diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..a72d1b2 --- /dev/null +++ b/.gitignore @@ -0,0 +1 @@ +elm-stuff/ diff --git a/elm-package.json b/elm-package.json index 93ece5c..e0250c0 100644 --- a/elm-package.json +++ b/elm-package.json @@ -1,7 +1,7 @@ { "version": "1.0.0", - "summary": "Elm bindings for Semantic UI", - "repository": "https://github.com/b52/elm-semantic-ui.git", + "summary": "Elm bindings for Semantic UI forked from b52/elm-semantic-ui.git", + "repository": "https://github.com/rizafahmi/elm-semantic-ui.git", "license": "MIT", "source-directories": [ "src" @@ -10,8 +10,8 @@ "SemanticUi" ], "dependencies": { - "elm-lang/core": "2.1.0 <= v < 3.0.0", + "elm-lang/core": "2.1.0 <= v < 4.0.0", "evancz/elm-html": "4.0.1 <= v < 5.0.0" }, - "elm-version": "0.15.1 <= v < 0.16.0" + "elm-version": "0.15.0 <= v < 0.17.0" } \ No newline at end of file diff --git a/src/SemanticUi.elm b/src/SemanticUi.elm index 7e8cf7a..5a26cf7 100644 --- a/src/SemanticUi.elm +++ b/src/SemanticUi.elm @@ -61,7 +61,7 @@ style : (a -> a) -> Element a -> Element a style f element = let oldStyle = element.state newStyle = f oldStyle - in { element | state <- newStyle } + in { element | state = newStyle } {-| Some elements might have different sizes. -} @@ -83,7 +83,7 @@ type alias Sized a = button "click" |> size Huge -} size : Size -> Element (Sized a) -> Element (Sized a) -size size = style <| \state -> { state | size <- size } +size size = style <| \state -> { state | size = size } type alias Readable a = @@ -94,7 +94,7 @@ type alias Readable a = button "click" |> text "DON'T click" -} text : String -> Element (Readable a) -> Element (Readable a) -text text = style <| \state -> { state | text <- text } +text text = style <| \state -> { state | text = text } {-| The button state driving the visual appearance. -}