Skip to content
Snippets Groups Projects
Commit 9ec7d09a authored by Edward Sabinus's avatar Edward Sabinus
Browse files

Revert "Update correct Shapepicture editor.elm"

This reverts commit e98b702f
parent e98b702f
No related branches found
No related tags found
No related merge requests found
module ShapePicture_Editor exposing (main)
--Browser
import Browser
import Browser.Navigation as Nav
-- Url
import Url
-- Own
import TypeHolder exposing (Model, Msg(..))
import Manager.UpdateManager exposing (update)
import Manager.ViewManager exposing (documentView)
import Manager.StateManager as StM
import Util.Util exposing (Picture, isEdit)
main = Browser.application
{ init = init
, subscriptions = subscriptions
, update = update
, view = documentView
, onUrlChange = UrlChanged
, onUrlRequest = LinkClicked
}
-- INIT
init : () -> Url.Url -> Nav.Key-> (Model, Cmd Msg)
init _ url key =
( Model
StM.Standby
[]
0
(Ok " Init")
( Picture
( Url.Url
Url.Http
"www.informatik.uni-halle.de"
Nothing
"/im/1285058520_1381_00_800.jpg"
Nothing
Nothing
)
0
0
)
(isEdit url)
url
key
, Cmd.none
)
-- SUBSCRIPTIONS
subscriptions : Model -> Sub Msg
subscriptions model = Sub.none
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment