Christian/Johnny
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Removed some unneeded spaces

Browse Source
This commit is contained in:
Christian
2022-05-04 11:45:49 +02:00
parent bf2d2e4256
commit b41f999323
2 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/Main.elm
View File

@ -25,8 +25,8 @@ import File.Download as Download
-- PC Stuff -- PC Stuff
import PC.Types exposing (..) import PC.Types exposing (..)
import PC.PC as PC import PC.PC as PC
import PC.Json import PC.Json
import PC.Helpers exposing (..) import PC.Helpers exposing (..)
-- Note that general Stuff is at the end of the document -- Note that general Stuff is at the end of the document
@ -287,7 +287,7 @@ cmd_up_lStorage_n_Scroller model =
Cmd.batch Cmd.batch
[ cmd_up_lStorage model [ cmd_up_lStorage model
, cmd_scoller model , cmd_scoller model
] ]
-- ############################################################################### -- ###############################################################################
-- ############################################################################### -- ###############################################################################
@ -329,15 +329,15 @@ doDecodeModel jText =
_ -> Nothing _ -> Nothing
in in
jText jText
|> JD.decodeString modelDecoder |> JD.decodeString modelDecoder
|> error2maybe |> error2maybe
modelDecoder : JD.Decoder Model modelDecoder : JD.Decoder Model
modelDecoder = modelDecoder =
let let
mainDecoder : String -> JD.Decoder Model mainDecoder : String -> JD.Decoder Model
mainDecoder version = mainDecoder version =
if (version == pcModelVersion) then if (version == "4" || version == "3") then
JD.map2 JD.map2
(\a b -> Model a b [] False Waiting Waiting initDragDrop False ) (\a b -> Model a b [] False Waiting Waiting initDragDrop False )
( JD.field "pc_model" PC.Json.pcModelDecoder ) ( JD.field "pc_model" PC.Json.pcModelDecoder )

4
src/PC/Update.elm
View File

@ -11,9 +11,9 @@ import PC.Helpers exposing (..)
pc_update : PC_Msg -> PC_Model -> (PC_Model, PC_AfterUpdateAction) pc_update : PC_Msg -> PC_Model -> (PC_Model, PC_AfterUpdateAction)
pc_update msg model = pc_update msg model =
case msg of case msg of
PM_B_UCycleStep -> PM_B_UCycleStep ->
let (new_model, reqAlert) = uStepPC model let (new_model, reqAlert) = uStepPC model
in in
( new_model ( new_model
, if reqAlert == True then PUA_Alert , if reqAlert == True then PUA_Alert
else if model.pc.uCounter == 0 then PUA_Storage_And_Scroller else if model.pc.uCounter == 0 then PUA_Storage_And_Scroller