cerchez07/elm-0.19-workshop
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix Author

Browse Source
This commit is contained in:
Richard Feldman
2018-08-14 03:36:57 -04:00
parent 58194312b6
commit ad816cc3ff
13 changed files with 39 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
advanced/part1/src/Author.elm
View File

@@ -54,7 +54,7 @@ import Html.Events exposing (onClick)
import Http import Http
import HttpBuilder exposing (RequestBuilder, withExpect) import HttpBuilder exposing (RequestBuilder, withExpect)
import Json.Decode as Decode exposing (Decoder) import Json.Decode as Decode exposing (Decoder)
import Json.Decode.Pipeline exposing (custom, required) import Json.Decode.Pipeline exposing (custom, optional, required)
import Json.Encode as Encode exposing (Value) import Json.Encode as Encode exposing (Value)
import Profile exposing (Profile) import Profile exposing (Profile)
import Route exposing (Route) import Route exposing (Route)
@@ -229,8 +229,8 @@ decodeFromPair maybeCred ( prof, uname ) =
nonViewerDecoder : Profile -> Username -> Decoder Author nonViewerDecoder : Profile -> Username -> Decoder Author
nonViewerDecoder prof uname = nonViewerDecoder prof uname =
Decode.field "following" Decode.bool Decode.succeed (authorFromFollowing prof uname)
|> Decode.map (authorFromFollowing prof uname) |> optional "following" Decode.bool False
authorFromFollowing : Profile -> Username -> Bool -> Author authorFromFollowing : Profile -> Username -> Bool -> Author

6
advanced/part2/src/Author.elm
View File

@@ -54,7 +54,7 @@ import Html.Events exposing (onClick)
import Http import Http
import HttpBuilder exposing (RequestBuilder, withExpect) import HttpBuilder exposing (RequestBuilder, withExpect)
import Json.Decode as Decode exposing (Decoder) import Json.Decode as Decode exposing (Decoder)
import Json.Decode.Pipeline exposing (custom, required) import Json.Decode.Pipeline exposing (custom, optional, required)
import Json.Encode as Encode exposing (Value) import Json.Encode as Encode exposing (Value)
import Profile exposing (Profile) import Profile exposing (Profile)
import Route exposing (Route) import Route exposing (Route)
@@ -229,8 +229,8 @@ decodeFromPair maybeCred ( prof, uname ) =
nonViewerDecoder : Profile -> Username -> Decoder Author nonViewerDecoder : Profile -> Username -> Decoder Author
nonViewerDecoder prof uname = nonViewerDecoder prof uname =
Decode.field "following" Decode.bool Decode.succeed (authorFromFollowing prof uname)
|> Decode.map (authorFromFollowing prof uname) |> optional "following" Decode.bool False
authorFromFollowing : Profile -> Username -> Bool -> Author authorFromFollowing : Profile -> Username -> Bool -> Author

6
advanced/part3/src/Author.elm
View File

@@ -54,7 +54,7 @@ import Html.Events exposing (onClick)
import Http import Http
import HttpBuilder exposing (RequestBuilder, withExpect) import HttpBuilder exposing (RequestBuilder, withExpect)
import Json.Decode as Decode exposing (Decoder) import Json.Decode as Decode exposing (Decoder)
import Json.Decode.Pipeline exposing (custom, required) import Json.Decode.Pipeline exposing (custom, optional, required)
import Json.Encode as Encode exposing (Value) import Json.Encode as Encode exposing (Value)
import Profile exposing (Profile) import Profile exposing (Profile)
import Route exposing (Route) import Route exposing (Route)
@@ -229,8 +229,8 @@ decodeFromPair maybeCred ( prof, uname ) =
nonViewerDecoder : Profile -> Username -> Decoder Author nonViewerDecoder : Profile -> Username -> Decoder Author
nonViewerDecoder prof uname = nonViewerDecoder prof uname =
Decode.field "following" Decode.bool Decode.succeed (authorFromFollowing prof uname)
|> Decode.map (authorFromFollowing prof uname) |> optional "following" Decode.bool False
authorFromFollowing : Profile -> Username -> Bool -> Author authorFromFollowing : Profile -> Username -> Bool -> Author

6
advanced/part4/src/Author.elm
View File

@@ -54,7 +54,7 @@ import Html.Events exposing (onClick)
import Http import Http
import HttpBuilder exposing (RequestBuilder, withExpect) import HttpBuilder exposing (RequestBuilder, withExpect)
import Json.Decode as Decode exposing (Decoder) import Json.Decode as Decode exposing (Decoder)
import Json.Decode.Pipeline exposing (custom, required) import Json.Decode.Pipeline exposing (custom, optional, required)
import Json.Encode as Encode exposing (Value) import Json.Encode as Encode exposing (Value)
import Profile exposing (Profile) import Profile exposing (Profile)
import Route exposing (Route) import Route exposing (Route)
@@ -229,8 +229,8 @@ decodeFromPair maybeCred ( prof, uname ) =
nonViewerDecoder : Profile -> Username -> Decoder Author nonViewerDecoder : Profile -> Username -> Decoder Author
nonViewerDecoder prof uname = nonViewerDecoder prof uname =
Decode.field "following" Decode.bool Decode.succeed (authorFromFollowing prof uname)
|> Decode.map (authorFromFollowing prof uname) |> optional "following" Decode.bool False
authorFromFollowing : Profile -> Username -> Bool -> Author authorFromFollowing : Profile -> Username -> Bool -> Author

6
advanced/part5/src/Author.elm
View File

@@ -54,7 +54,7 @@ import Html.Events exposing (onClick)
import Http import Http
import HttpBuilder exposing (RequestBuilder, withExpect) import HttpBuilder exposing (RequestBuilder, withExpect)
import Json.Decode as Decode exposing (Decoder) import Json.Decode as Decode exposing (Decoder)
import Json.Decode.Pipeline exposing (custom, required) import Json.Decode.Pipeline exposing (custom, optional, required)
import Json.Encode as Encode exposing (Value) import Json.Encode as Encode exposing (Value)
import Profile exposing (Profile) import Profile exposing (Profile)
import Route exposing (Route) import Route exposing (Route)
@@ -229,8 +229,8 @@ decodeFromPair maybeCred ( prof, uname ) =
nonViewerDecoder : Profile -> Username -> Decoder Author nonViewerDecoder : Profile -> Username -> Decoder Author
nonViewerDecoder prof uname = nonViewerDecoder prof uname =
Decode.field "following" Decode.bool Decode.succeed (authorFromFollowing prof uname)
|> Decode.map (authorFromFollowing prof uname) |> optional "following" Decode.bool False
authorFromFollowing : Profile -> Username -> Bool -> Author authorFromFollowing : Profile -> Username -> Bool -> Author

6
advanced/part6/src/Author.elm
View File

@@ -54,7 +54,7 @@ import Html.Events exposing (onClick)
import Http import Http
import HttpBuilder exposing (RequestBuilder, withExpect) import HttpBuilder exposing (RequestBuilder, withExpect)
import Json.Decode as Decode exposing (Decoder) import Json.Decode as Decode exposing (Decoder)
import Json.Decode.Pipeline exposing (custom, required) import Json.Decode.Pipeline exposing (custom, optional, required)
import Json.Encode as Encode exposing (Value) import Json.Encode as Encode exposing (Value)
import Profile exposing (Profile) import Profile exposing (Profile)
import Route exposing (Route) import Route exposing (Route)
@@ -229,8 +229,8 @@ decodeFromPair maybeCred ( prof, uname ) =
nonViewerDecoder : Profile -> Username -> Decoder Author nonViewerDecoder : Profile -> Username -> Decoder Author
nonViewerDecoder prof uname = nonViewerDecoder prof uname =
Decode.field "following" Decode.bool Decode.succeed (authorFromFollowing prof uname)
|> Decode.map (authorFromFollowing prof uname) |> optional "following" Decode.bool False
authorFromFollowing : Profile -> Username -> Bool -> Author authorFromFollowing : Profile -> Username -> Bool -> Author

6
advanced/part7/src/Author.elm
View File

@@ -54,7 +54,7 @@ import Html.Events exposing (onClick)
import Http import Http
import HttpBuilder exposing (RequestBuilder, withExpect) import HttpBuilder exposing (RequestBuilder, withExpect)
import Json.Decode as Decode exposing (Decoder) import Json.Decode as Decode exposing (Decoder)
import Json.Decode.Pipeline exposing (custom, required) import Json.Decode.Pipeline exposing (custom, optional, required)
import Json.Encode as Encode exposing (Value) import Json.Encode as Encode exposing (Value)
import Profile exposing (Profile) import Profile exposing (Profile)
import Route exposing (Route) import Route exposing (Route)
@@ -232,8 +232,8 @@ decoderHelp maybeCred prof uname =
nonViewerDecoder : Profile -> Username -> Decoder Author nonViewerDecoder : Profile -> Username -> Decoder Author
nonViewerDecoder prof uname = nonViewerDecoder prof uname =
Decode.field "following" Decode.bool Decode.succeed (authorFromFollowing prof uname)
|> Decode.map (authorFromFollowing prof uname) |> optional "following" Decode.bool False
authorFromFollowing : Profile -> Username -> Bool -> Author authorFromFollowing : Profile -> Username -> Bool -> Author

6
advanced/part8/src/Author.elm
View File

@@ -54,7 +54,7 @@ import Html.Events exposing (onClick)
import Http import Http
import HttpBuilder exposing (RequestBuilder, withExpect) import HttpBuilder exposing (RequestBuilder, withExpect)
import Json.Decode as Decode exposing (Decoder) import Json.Decode as Decode exposing (Decoder)
import Json.Decode.Pipeline exposing (custom, required) import Json.Decode.Pipeline exposing (custom, optional, required)
import Json.Encode as Encode exposing (Value) import Json.Encode as Encode exposing (Value)
import Profile exposing (Profile) import Profile exposing (Profile)
import Route exposing (Route) import Route exposing (Route)
@@ -229,8 +229,8 @@ decodeFromPair maybeCred ( prof, uname ) =
nonViewerDecoder : Profile -> Username -> Decoder Author nonViewerDecoder : Profile -> Username -> Decoder Author
nonViewerDecoder prof uname = nonViewerDecoder prof uname =
Decode.field "following" Decode.bool Decode.succeed (authorFromFollowing prof uname)
|> Decode.map (authorFromFollowing prof uname) |> optional "following" Decode.bool False
authorFromFollowing : Profile -> Username -> Bool -> Author authorFromFollowing : Profile -> Username -> Bool -> Author

6
intro/part5/src/Author.elm
View File

@@ -54,7 +54,7 @@ import Html.Events exposing (onClick)
import Http import Http
import HttpBuilder exposing (RequestBuilder, withExpect) import HttpBuilder exposing (RequestBuilder, withExpect)
import Json.Decode as Decode exposing (Decoder) import Json.Decode as Decode exposing (Decoder)
import Json.Decode.Pipeline exposing (custom, required) import Json.Decode.Pipeline exposing (custom, optional, required)
import Json.Encode as Encode exposing (Value) import Json.Encode as Encode exposing (Value)
import Profile exposing (Profile) import Profile exposing (Profile)
import Route exposing (Route) import Route exposing (Route)
@@ -229,8 +229,8 @@ decodeFromPair maybeCred ( prof, uname ) =
nonViewerDecoder : Profile -> Username -> Decoder Author nonViewerDecoder : Profile -> Username -> Decoder Author
nonViewerDecoder prof uname = nonViewerDecoder prof uname =
Decode.field "following" Decode.bool Decode.succeed (authorFromFollowing prof uname)
|> Decode.map (authorFromFollowing prof uname) |> optional "following" Decode.bool False
authorFromFollowing : Profile -> Username -> Bool -> Author authorFromFollowing : Profile -> Username -> Bool -> Author

6
intro/part6/src/Author.elm
View File

@@ -54,7 +54,7 @@ import Html.Events exposing (onClick)
import Http import Http
import HttpBuilder exposing (RequestBuilder, withExpect) import HttpBuilder exposing (RequestBuilder, withExpect)
import Json.Decode as Decode exposing (Decoder) import Json.Decode as Decode exposing (Decoder)
import Json.Decode.Pipeline exposing (custom, required) import Json.Decode.Pipeline exposing (custom, optional, required)
import Json.Encode as Encode exposing (Value) import Json.Encode as Encode exposing (Value)
import Profile exposing (Profile) import Profile exposing (Profile)
import Route exposing (Route) import Route exposing (Route)
@@ -229,8 +229,8 @@ decodeFromPair maybeCred ( prof, uname ) =
nonViewerDecoder : Profile -> Username -> Decoder Author nonViewerDecoder : Profile -> Username -> Decoder Author
nonViewerDecoder prof uname = nonViewerDecoder prof uname =
Decode.field "following" Decode.bool Decode.succeed (authorFromFollowing prof uname)
|> Decode.map (authorFromFollowing prof uname) |> optional "following" Decode.bool False
authorFromFollowing : Profile -> Username -> Bool -> Author authorFromFollowing : Profile -> Username -> Bool -> Author

6
intro/part7/src/Author.elm
View File

@@ -54,7 +54,7 @@ import Html.Events exposing (onClick)
import Http import Http
import HttpBuilder exposing (RequestBuilder, withExpect) import HttpBuilder exposing (RequestBuilder, withExpect)
import Json.Decode as Decode exposing (Decoder) import Json.Decode as Decode exposing (Decoder)
import Json.Decode.Pipeline exposing (custom, required) import Json.Decode.Pipeline exposing (custom, optional, required)
import Json.Encode as Encode exposing (Value) import Json.Encode as Encode exposing (Value)
import Profile exposing (Profile) import Profile exposing (Profile)
import Route exposing (Route) import Route exposing (Route)
@@ -229,8 +229,8 @@ decodeFromPair maybeCred ( prof, uname ) =
nonViewerDecoder : Profile -> Username -> Decoder Author nonViewerDecoder : Profile -> Username -> Decoder Author
nonViewerDecoder prof uname = nonViewerDecoder prof uname =
Decode.field "following" Decode.bool Decode.succeed (authorFromFollowing prof uname)
|> Decode.map (authorFromFollowing prof uname) |> optional "following" Decode.bool False
authorFromFollowing : Profile -> Username -> Bool -> Author authorFromFollowing : Profile -> Username -> Bool -> Author

6
intro/part8/src/Author.elm
View File

@@ -54,7 +54,7 @@ import Html.Events exposing (onClick)
import Http import Http
import HttpBuilder exposing (RequestBuilder, withExpect) import HttpBuilder exposing (RequestBuilder, withExpect)
import Json.Decode as Decode exposing (Decoder) import Json.Decode as Decode exposing (Decoder)
import Json.Decode.Pipeline exposing (custom, required) import Json.Decode.Pipeline exposing (custom, optional, required)
import Json.Encode as Encode exposing (Value) import Json.Encode as Encode exposing (Value)
import Profile exposing (Profile) import Profile exposing (Profile)
import Route exposing (Route) import Route exposing (Route)
@@ -229,8 +229,8 @@ decodeFromPair maybeCred ( prof, uname ) =
nonViewerDecoder : Profile -> Username -> Decoder Author nonViewerDecoder : Profile -> Username -> Decoder Author
nonViewerDecoder prof uname = nonViewerDecoder prof uname =
Decode.field "following" Decode.bool Decode.succeed (authorFromFollowing prof uname)
|> Decode.map (authorFromFollowing prof uname) |> optional "following" Decode.bool False
authorFromFollowing : Profile -> Username -> Bool -> Author authorFromFollowing : Profile -> Username -> Bool -> Author

6
intro/part9/src/Author.elm
View File

@@ -54,7 +54,7 @@ import Html.Events exposing (onClick)
import Http import Http
import HttpBuilder exposing (RequestBuilder, withExpect) import HttpBuilder exposing (RequestBuilder, withExpect)
import Json.Decode as Decode exposing (Decoder) import Json.Decode as Decode exposing (Decoder)
import Json.Decode.Pipeline exposing (custom, required) import Json.Decode.Pipeline exposing (custom, optional, required)
import Json.Encode as Encode exposing (Value) import Json.Encode as Encode exposing (Value)
import Profile exposing (Profile) import Profile exposing (Profile)
import Route exposing (Route) import Route exposing (Route)
@@ -229,8 +229,8 @@ decodeFromPair maybeCred ( prof, uname ) =
nonViewerDecoder : Profile -> Username -> Decoder Author nonViewerDecoder : Profile -> Username -> Decoder Author
nonViewerDecoder prof uname = nonViewerDecoder prof uname =
Decode.field "following" Decode.bool Decode.succeed (authorFromFollowing prof uname)
|> Decode.map (authorFromFollowing prof uname) |> optional "following" Decode.bool False
authorFromFollowing : Profile -> Username -> Bool -> Author authorFromFollowing : Profile -> Username -> Bool -> Author