質問編集履歴
3
コードをhackellからelmに変更
test
CHANGED
File without changes
|
test
CHANGED
@@ -8,7 +8,7 @@
|
|
8
8
|
|
9
9
|
|
10
10
|
|
11
|
-
```
|
11
|
+
```elm
|
12
12
|
|
13
13
|
module Main exposing (main)
|
14
14
|
|
2
コードを追加
test
CHANGED
File without changes
|
test
CHANGED
@@ -10,6 +10,62 @@
|
|
10
10
|
|
11
11
|
```Hasckell
|
12
12
|
|
13
|
+
module Main exposing (main)
|
14
|
+
|
15
|
+
|
16
|
+
|
17
|
+
import Browser
|
18
|
+
|
19
|
+
import Html exposing (..)
|
20
|
+
|
21
|
+
import Html.Attributes exposing (..)
|
22
|
+
|
23
|
+
import Html.Events exposing (..)
|
24
|
+
|
25
|
+
import Http
|
26
|
+
|
27
|
+
import Json.Decode exposing (Decoder, field, string)
|
28
|
+
|
29
|
+
|
30
|
+
|
31
|
+
|
32
|
+
|
33
|
+
|
34
|
+
|
35
|
+
-- MAIN
|
36
|
+
|
37
|
+
|
38
|
+
|
39
|
+
|
40
|
+
|
41
|
+
main : Program () Model Msg
|
42
|
+
|
43
|
+
main =
|
44
|
+
|
45
|
+
Browser.document
|
46
|
+
|
47
|
+
{ init = init
|
48
|
+
|
49
|
+
, update = update
|
50
|
+
|
51
|
+
, subscriptions = subscriptions
|
52
|
+
|
53
|
+
, view = viewDocument
|
54
|
+
|
55
|
+
}
|
56
|
+
|
57
|
+
|
58
|
+
|
59
|
+
|
60
|
+
|
61
|
+
|
62
|
+
|
63
|
+
-- MODEL
|
64
|
+
|
65
|
+
|
66
|
+
|
67
|
+
|
68
|
+
|
13
69
|
type Model
|
14
70
|
|
15
71
|
= Failure
|
@@ -30,6 +86,28 @@
|
|
30
86
|
|
31
87
|
|
32
88
|
|
89
|
+
|
90
|
+
|
91
|
+
|
92
|
+
|
93
|
+
-- UPDATE
|
94
|
+
|
95
|
+
|
96
|
+
|
97
|
+
|
98
|
+
|
99
|
+
type Msg
|
100
|
+
|
101
|
+
= MorePlease
|
102
|
+
|
103
|
+
| GotGif (Result Http.Error String)
|
104
|
+
|
105
|
+
|
106
|
+
|
107
|
+
|
108
|
+
|
109
|
+
update : Msg -> Model -> ( Model, Cmd Msg )
|
110
|
+
|
33
111
|
update msg model =
|
34
112
|
|
35
113
|
case msg of
|
@@ -56,6 +134,60 @@
|
|
56
134
|
|
57
135
|
|
58
136
|
|
137
|
+
|
138
|
+
|
139
|
+
|
140
|
+
|
141
|
+
-- SUBSCRIPTIONS
|
142
|
+
|
143
|
+
|
144
|
+
|
145
|
+
|
146
|
+
|
147
|
+
subscriptions : Model -> Sub Msg
|
148
|
+
|
149
|
+
subscriptions model =
|
150
|
+
|
151
|
+
Sub.none
|
152
|
+
|
153
|
+
|
154
|
+
|
155
|
+
|
156
|
+
|
157
|
+
|
158
|
+
|
159
|
+
-- VIEW
|
160
|
+
|
161
|
+
|
162
|
+
|
163
|
+
|
164
|
+
|
165
|
+
viewDocument : Model -> Browser.Document Msg
|
166
|
+
|
167
|
+
viewDocument model =
|
168
|
+
|
169
|
+
{ title = "Some cats", body = [ view model ] }
|
170
|
+
|
171
|
+
|
172
|
+
|
173
|
+
|
174
|
+
|
175
|
+
view : Model -> Html Msg
|
176
|
+
|
177
|
+
view model =
|
178
|
+
|
179
|
+
div []
|
180
|
+
|
181
|
+
[ h2 [] [ text "Random Cats" ]
|
182
|
+
|
183
|
+
, viewGif model
|
184
|
+
|
185
|
+
]
|
186
|
+
|
187
|
+
|
188
|
+
|
189
|
+
|
190
|
+
|
59
191
|
viewGif : Model -> Html Msg
|
60
192
|
|
61
193
|
viewGif model =
|
@@ -116,4 +248,16 @@
|
|
116
248
|
|
117
249
|
|
118
250
|
|
251
|
+
|
252
|
+
|
253
|
+
gifDecoder : Decoder String
|
254
|
+
|
255
|
+
gifDecoder =
|
256
|
+
|
257
|
+
field "data" (field "image_url" string)
|
258
|
+
|
259
|
+
|
260
|
+
|
261
|
+
|
262
|
+
|
119
263
|
```
|
1
タグを外す
test
CHANGED
File without changes
|
test
CHANGED
File without changes
|