src/client/elm/Model.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

module Model exposing (..)


type alias Model =
    { users : List User
    }


type alias User =
    { type_ : UserType
    , value : String
    }


type UserType
    = Class
    | Teacher
    | Room
    | Student