Add some documentation

This commit is contained in:
Valentin Brandl 2019-08-04 23:25:17 +02:00
parent 7e90aec5d9
commit ac9da4d245
No known key found for this signature in database
GPG Key ID: 30D341DD34118D7D

View File

@ -15,9 +15,11 @@ import Html
, a , a
, article , article
, h1 , h1
, h2
, input , input
, li , li
, nav , nav
, p
, section , section
, small , small
, text , text
@ -127,9 +129,24 @@ body state =
[ input (myStyle2 [ placeholder "GitHub/GitLab/Bitbucket URL", value state.url, onInput UrlChange ]) [ input (myStyle2 [ placeholder "GitHub/GitLab/Bitbucket URL", value state.url, onInput UrlChange ])
[] []
, input (myStyle2 [ disabled True, value (displayMUrl state.parsed) ]) [] , input (myStyle2 [ disabled True, value (displayMUrl state.parsed) ]) []
, h2 myStyle
[ text "Caching" ]
, p myStyle
[ text "Files are cached in the CDN for about one year" ]
, h2 myStyle
[ text "Invalidating the Cache" ]
, p myStyle
[ text "To delete a file from the cache, just request the file via HTTP "
, code "DELETE"
]
] ]
code : String -> Html msg
code msg =
Html.code [] [ text msg ]
main : Program () Model Msg main : Program () Model Msg
main = main =
Browser.sandbox Browser.sandbox