dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-11-28 06:05:31 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix docs.

Browse Source
This commit is contained in:
Dillon Kearns 2021-10-16 09:23:22 -07:00
parent 3ece0dddc5
commit 17d1324e84
2 changed files with 11 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docs.json
View File

File diff suppressed because one or more lines are too long

24
src/DataSource/Glob.elm
View File

@ -1007,12 +1007,6 @@ issues (like if we had instead ignored the case where there are two or more matc
-}
expectUniqueMatch : Glob a -> DataSource a
expectUniqueMatch glob =
let
pattern =
case glob of
Glob pattern_ _ _ ->
pattern_
in
glob
|> toDataSource
|> DataSource.andThen
@ -1022,21 +1016,16 @@ expectUniqueMatch glob =
DataSource.succeed file
[] ->
DataSource.fail <| "No files matched the pattern: " ++ pattern
DataSource.fail <| "No files matched the pattern: " ++ toPatternString glob
_ ->
DataSource.fail "More than one file matched."
)
{-| -}
expectUniqueMatchFromList : List (Glob a) -> DataSource a
expectUniqueMatchFromList globs =
let
pattern glob =
case glob of
Glob pattern_ _ _ ->
pattern_
in
globs
|> List.map toDataSource
|> DataSource.combine
@ -1047,8 +1036,15 @@ expectUniqueMatchFromList globs =
DataSource.succeed file
[] ->
DataSource.fail <| "No files matched the patterns: " ++ (globs |> List.map pattern |> String.join ", ")
DataSource.fail <| "No files matched the patterns: " ++ (globs |> List.map toPatternString |> String.join ", ")
_ ->
DataSource.fail "More than one file matched."
)
toPatternString : Glob a -> String
toPatternString glob =
case glob of
Glob pattern_ _ _ ->
pattern_