Add part1

This commit is contained in:
Richard Feldman
2018-04-30 04:20:48 -04:00
parent 394b108065
commit 5e232596d9
240 changed files with 34606 additions and 0 deletions

View File

@@ -0,0 +1,33 @@
module Views.Assets exposing (error, src)
{-| Assets, such as images, videos, and audio. (We only have images for now.)
We should never expose asset URLs directly; this module should be in charge of
all of them. One source of truth!
-}
import Html exposing (Attribute, Html)
import Html.Attributes as Attr
type Image
= Image String
-- IMAGES --
error : Image
error =
Image "/assets/images/error.jpg"
-- USING IMAGES --
src : Image -> Attribute msg
src (Image url) =
Attr.src url