rhi/gallery
1
0
Fork 0
Code Issues 5 Pull requests 1 Releases Wiki Activity

use fork of filemanip

Browse source
This commit is contained in:
Rhiannon Morris 2021-04-16 21:34:48 +02:00
parent 31acd4189b
commit 519ccf2fef
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
cabal.project
View file

@ -1 +1,6 @@
packages: ./make-pages packages: ./make-pages
source-repository-package
type: git
location: https://git.rhiannon.website/rhi/filemanip
tag: 0edef8f7bbfe8e210f546e3222b735a32e6055e3

3
make-pages/Main.hs
View file

@ -110,7 +110,8 @@ infoYAML dataDir f = do
pure (f', info) pure (f', info)
findInfos :: FilePath -> FilePath -> IO [FilePath] findInfos :: FilePath -> FilePath -> IO [FilePath]
findInfos dataDir infoName = File.find always (fileName ==? infoName) dataDir findInfos dataDir infoName =
File.findL True always (fileName ==? infoName) dataDir
readYAML :: YAML.FromYAML a => FilePath -> IO a readYAML :: YAML.FromYAML a => FilePath -> IO a
readYAML file = ByteString.readFile file >>= decode1Must file readYAML file = ByteString.readFile file >>= decode1Must file