+1 -1

src/Applications/Brain.elm

reviewed

··· 88 88 89 89 90 90 91 91 - -- 📣 | Children & Replies 91 91 + -- 📣 ▒▒▒ CHILDREN & REPLIES 92 92 93 93 94 94 translateReply : Reply -> Msg

+9 -6

src/Applications/Brain/Sources/Processing.elm

reviewed

··· 78 78 ) 79 79 80 80 ----------------------------------------- 81 81 - -- PHASE 1 81 81 + -- Phase 1 82 82 -- Prepare for processing. 83 83 ----------------------------------------- 84 84 PrepareStep context (Ok response) -> ··· 94 94 ) 95 95 96 96 ----------------------------------------- 97 97 - -- PHASE 2 97 97 + -- Phase 2 98 98 -- Make a file list/tree. 99 99 ----------------------------------------- 100 100 TreeStep context (Ok response) -> ··· 110 110 ) 111 111 112 112 ----------------------------------------- 113 113 - -- PHASE 3 113 113 + -- Phase 3 114 114 -- Get the tags for each file in the file list. 115 115 ----------------------------------------- 116 116 TagsStep tagsContext -> ··· 120 120 ) 121 121 122 122 ----------------------------------------- 123 123 - -- BITS & PIECES 123 123 + -- Bits & Pieces 124 124 ----------------------------------------- 125 125 SetCurrentTime time -> 126 126 ( { model | currentTime = time } ··· 130 130 131 131 132 132 133 133 - -- 📣 | Common 133 133 + -- 📣 ▒▒▒ COMMON 134 134 135 135 136 136 reportHttpError : Source -> Http.Error -> Reply 137 137 reportHttpError source err = 138 138 - reportError { sourceId = source.id, error = translateHttpError source.service err } 138 138 + reportError 139 139 + { sourceId = source.id 140 140 + , error = translateHttpError source.service err 141 141 + } 139 142 140 143 141 144 reportError : { sourceId : String, error : String } -> Reply

+3 -3

src/Applications/UI.elm

reviewed

··· 198 198 199 199 200 200 201 201 - -- 📣 | Children & Replies 201 201 + -- 📣 ▒▒▒ CHILDREN & REPLIES 202 202 203 203 204 204 translateReply : Reply -> Msg ··· 328 328 329 329 330 330 331 331 - -- 🗺 | Bits 331 331 + -- 🗺 ▒▒▒ BITS 332 332 333 333 334 334 content : List (Html msg) -> Html msg ··· 351 351 352 352 353 353 354 354 - -- 🖼 | Global 354 354 + -- 🖼 ▒▒▒ GLOBAL 355 355 356 356 357 357 globalCss : List Css.Global.Snippet

+4 -4

src/Applications/UI/UserData.elm

reviewed

··· 36 36 37 37 38 38 39 39 - -- 📭 | Importing Hypaethral 39 39 + -- 📭 ▒▒▒ IMPORTING HYPAETHRAL 40 40 41 41 42 42 importSources : UI.Sources.Model -> HypaethralBundle -> UI.Sources.Model ··· 45 45 46 46 47 47 48 48 - -- 📭 | Decoding 48 48 + -- 📭 ▒▒▒ DECODING 49 49 50 50 51 51 decode : Decode.Value -> Result Decode.Error HypaethralUserData ··· 61 61 62 62 63 63 64 64 - -- 📭 | Fallbacks 64 64 + -- 📭 ▒▒▒ FALLBACKS 65 65 66 66 67 67 emptyHypaethralUserData : HypaethralUserData ··· 81 81 82 82 83 83 84 84 - -- 📮 | Encoding 84 84 + -- 📮 ▒▒▒ ENCODING 85 85 86 86 87 87 encode : UI.Core.Model -> Encode.Value

+1 -1

src/Library/Replying.elm

reviewed

··· 47 47 48 48 49 49 50 50 - -- 🔱 | TASKS 50 50 + -- 🔱 ▒▒▒ TASKS 51 51 52 52 53 53 do : msg -> Cmd msg