Commit 66868c52 authored by Christophe Benz's avatar Christophe Benz

Implement Use It modal dialog

parent 60847508
......@@ -13,7 +13,8 @@ import WebData exposing (..)
init : Model
init =
{ editedProperty = Nothing
{ displayUseItModal = False
, editedProperty = Nothing
, webData = NotAsked
}
......@@ -33,6 +34,11 @@ update msg ({ editedProperty } as model) authentication language =
in
( newModel, Cmd.none )
DisplayUseItModal displayUseItModal ->
( { model | displayUseItModal = displayUseItModal }
, Cmd.none
)
LoadCard cardId ->
let
newModel =
......
......@@ -18,7 +18,8 @@ type alias EditedProperty =
type alias Model =
{ editedProperty : Maybe EditedProperty
{ displayUseItModal : Bool
, editedProperty : Maybe EditedProperty
, webData : WebData DataIdBody
}
......@@ -29,6 +30,7 @@ type ExternalMsg
type InternalMsg
= CloseEditPropertiesModal
| DisplayUseItModal Bool
| LoadCard String
| LoadCardError Http.Error
| LoadCardSuccess DataIdBody
......
This diff is collapsed.
module Configuration exposing (..)
import Dict exposing (Dict)
import String
......@@ -14,6 +15,15 @@ appUrl =
"http://localhost:3011/"
useItData =
Dict.fromList
[ ( "7873", { frenchGovDeployUrl = "https://consultation.etalab.gouv.fr/" } )
, ( "4848", { frenchGovDeployUrl = "https://consultation.etalab.gouv.fr/" } )
, ( "6228", { frenchGovDeployUrl = "https://consultation.etalab.gouv.fr/" } )
, ( "2333", { frenchGovDeployUrl = "https://consultation.etalab.gouv.fr/" } )
]
-- HELPERS
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment