A music player that connects to your cloud/distributed storage.
Remove remaining Debug.log
-22
-22
src/Library/Syncing.elm
-22
src/Library/Syncing.elm
···
1
1
module Syncing exposing (LocalConfig, RemoteConfig, task)
2
2
3
-
import DateFormat as Date
4
3
import Json.Decode as Decode
5
4
import Json.Encode as Json
6
5
import Maybe.Extra as Maybe
···
66
65
|> Task.andThen
67
66
(\maybeModifiedAt ->
68
67
let
69
-
formatDate =
70
-
Date.format
71
-
[ Date.monthNameAbbreviated
72
-
, Date.text " "
73
-
, Date.dayOfMonthSuffix
74
-
, Date.text " "
75
-
, Date.yearNumber
76
-
, Date.text ", "
77
-
, Date.hourMilitaryFixed
78
-
, Date.text ":"
79
-
, Date.minuteFixed
80
-
, Date.text ":"
81
-
, Date.secondFixed
82
-
]
83
-
84
68
maybeRemoteModifiedAt =
85
69
Maybe.andThen
86
70
(Decode.decodeValue Time.decoder >> Result.toMaybe)
87
71
maybeModifiedAt
88
-
89
-
_ =
90
-
Debug.log "remote" (Maybe.map (formatDate Time.utc) maybeRemoteModifiedAt)
91
-
92
-
_ =
93
-
Debug.log "local" (Maybe.map (formatDate Time.utc) localConfig.localData.modifiedAt)
94
72
in
95
73
case ( maybeRemoteModifiedAt, localConfig.localData.modifiedAt ) of
96
74
( Just remoteModifiedAt, Just localModifiedAt ) ->