Merge Text code
parent
5856084b45
commit
f1dde4874b
1
elm.json
1
elm.json
|
@ -17,7 +17,6 @@
|
|||
"Internal.Tools.Iddict",
|
||||
"Internal.Tools.Json",
|
||||
"Internal.Tools.Mashdict",
|
||||
"Internal.Tools.RationalOrder",
|
||||
"Internal.Tools.Timestamp",
|
||||
"Internal.Tools.VersionControl",
|
||||
"Internal.Values.Context",
|
||||
|
|
|
@ -214,13 +214,14 @@ docs =
|
|||
|
||||
{-| Description of all edge cases where a JSON decoder can fail.
|
||||
-}
|
||||
failures : { hashdict : Desc, mashdict : Desc }
|
||||
failures : { hashdict : Desc, listWithOne : String, mashdict : Desc }
|
||||
failures =
|
||||
{ hashdict =
|
||||
[ "Not all values map to thir respected hash with the given hash function."
|
||||
[ "Not all values map to their respected hash with the given hash function."
|
||||
]
|
||||
, listWithOne = "Expected at least one value in the list - zero found."
|
||||
, mashdict =
|
||||
[ "Not all values map to thir respected hash with the given hash function."
|
||||
[ "Not all values map to their respected hash with the given hash function."
|
||||
]
|
||||
}
|
||||
|
||||
|
@ -485,7 +486,10 @@ leakingValueFound leaking_value =
|
|||
"Found leaking value : " ++ leaking_value
|
||||
|
||||
|
||||
{-| -}
|
||||
{-| These logs might appear during a process where something unexpected has
|
||||
happened. Most of these unexpected results, are taken account of by the Elm SDK,
|
||||
but logged so that the programmer can do something about it.
|
||||
-}
|
||||
logs : { keyIsNotAnInt : String -> String }
|
||||
logs =
|
||||
{ keyIsNotAnInt =
|
||||
|
|
|
@ -525,7 +525,7 @@ listWithOne (Coder old) =
|
|||
(\items ->
|
||||
case items of
|
||||
[] ->
|
||||
D.fail "Expected at least one value in list"
|
||||
D.fail Text.failures.listWithOne
|
||||
|
||||
( h, l1 ) :: t ->
|
||||
D.succeed
|
||||
|
|
Loading…
Reference in New Issue