diff options
Diffstat (limited to 'src/Types.elm')
| -rw-r--r-- | src/Types.elm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/Types.elm b/src/Types.elm index f10223e..aeb7d67 100644 --- a/src/Types.elm +++ b/src/Types.elm @@ -1,14 +1,17 @@ module Types exposing (..) +import Browser exposing (UrlRequest) import Browser.Navigation exposing (Key) import Http import RemoteData exposing (RemoteData) import Time +import Url exposing (Url) type alias Model = { now : Time.Posix , key : Key + , url : Url , userData : UserData , apiURL : String , posts : RemoteData (List Post) @@ -35,6 +38,9 @@ type Msg | RequestLogout -- TIME | SetNowPosix Time.Posix + -- NAVIGATION + | UrlChanged Url + | LinkClicked UrlRequest -- POSTS | GetPosts | GotPosts (Result Http.Error (List Post)) @@ -47,12 +53,21 @@ type Msg | ComposedPost (Result Http.Error Post) +type Route + = Index + | Profile UrlSegmentUserId + + type alias Author = { id : String , name : String } +type alias UrlSegmentUserId = + String + + type alias Post = { id : String , content : String |
