-15

src/Applications/Brain/User/Hypaethral.elm

reviewed

··· 101 101 saveFission : HypaethralBit -> Json.Decode.Value -> Task String () 102 102 saveFission bit data = 103 103 let 104 104 - _ = 105 105 - Debug.log "saveFission" bit 106 106 - 107 104 savePublicData = 108 105 bit == Playlists 109 106 in ··· 150 147 151 148 saveLocal : HypaethralBit -> Json.Decode.Value -> Task String () 152 149 saveLocal bit data = 153 153 - let 154 154 - _ = 155 155 - Debug.log "saveLocal" bit 156 156 - in 157 150 data 158 151 |> Brain.Task.Ports.toCacheWithSuffix 159 152 Alien.SyncLocal 160 153 (hypaethralBitFileName bit) 161 161 - |> Task.andThen 162 162 - (\_ -> 163 163 - let 164 164 - _ = 165 165 - Debug.log "saveLocal succeeded" () 166 166 - in 167 167 - Task.succeed () 168 168 - ) 169 154 |> Task.mapError TaskPort.errorToStringCustom 170 155 171 156

-1

src/Applications/Brain/User/State.elm

reviewed

··· 521 521 |> Maybe.withDefault [] 522 522 |> EverySet.fromList 523 523 |> EverySet.toList 524 524 - |> Debug.log "Save bits" 525 524 in 526 525 c 527 526 |> Cmd.map (SaveHypaethralDataSlowly >> UserMsg)