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

Add a function to add arbitrary files

Browse Source
This commit is contained in:
Jeroen Engels 2023-05-30 23:28:50 +02:00
parent 218973ef70
commit 3673dabbf3
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Review/Project.elm
View File

@ -294,6 +294,13 @@ addReadme readme_ (Internal.Project project) =
Internal.Project { project | readme = Just ( readme_, ContentHash.hash readme_.content ) }
{-| REPLACEME
-}
addArbitraryFiles : List { path : String, content : String } -> Project -> Project
addArbitraryFiles files (Internal.Project project) =
Internal.Project { project | arbitraryFiles = List.map (\file -> ( file, ContentHash.hash file.content )) files }
{-| Get the contents of the `README.md` file, if available.
-}
readme : Project -> Maybe { path : String, content : String }