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

Update plugin.

Browse Source
This commit is contained in:
Dillon Kearns 2023-05-19 08:14:56 -07:00
parent d873003ef8
commit 2e3d8d0867
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
plugins/MarkdownCodec.elm
View File

@ -60,7 +60,7 @@ noteTitle filePath =
|> BackendTask.andThen
(\rawContent ->
Markdown.Parser.parse rawContent
|> Result.mapError (\_ -> "Markdown error")
|> Result.mapError (\_ -> FatalError.fromString "Markdown error")
|> Result.map
(\blocks ->
List.Extra.findMap
@ -76,9 +76,8 @@ noteTitle filePath =
)
|> Result.andThen
(Result.fromMaybe <|
("Expected to find an H1 heading for page " ++ filePath)
FatalError.fromString ("Expected to find an H1 heading for page " ++ filePath)
)
|> Result.mapError FatalError.fromString
|> BackendTask.fromResult
)
)
@ -106,7 +105,7 @@ titleAndDescription filePath =
|> BackendTask.andThen
(\rawContent ->
Markdown.Parser.parse rawContent
|> Result.mapError (\_ -> "Markdown error")
|> Result.mapError (\_ -> FatalError.fromString "Markdown error")
|> Result.map
(\blocks ->
Maybe.map
@ -129,8 +128,7 @@ titleAndDescription filePath =
findH1 blocks
)
)
|> Result.andThen (Result.fromMaybe <| "Expected to find an H1 heading for page " ++ filePath)
|> Result.mapError FatalError.fromString
|> Result.andThen (Result.fromMaybe <| FatalError.fromString <| "Expected to find an H1 heading for page " ++ filePath)
|> BackendTask.fromResult
)
)