ngws/mad
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add IsDirectory

Browse Source
This commit is contained in:
Niels G. W. Serup
2024-09-30 23:30:43 +02:00
parent da7ea65cf5
commit 8aaa056978
3 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
byg/src/Evaluation/FunctionIO.hs
View File

@@ -12,13 +12,16 @@ import qualified Text.Pandoc as P
import qualified Text.Blaze.Html.Renderer.Text as B
import qualified Codec.Picture as CP
import qualified Codec.Picture.STBIR as CPS
import System.Directory (listDirectory, createDirectory, copyFile)
import System.Directory (listDirectory, doesDirectoryExist, createDirectory, copyFile)
evalFunctionIO :: FunctionIO -> Value -> IO Value
evalFunctionIO f x = case (f, x) of
(ListDirectory, String s) ->
(List . map toValue) <$> listDirectory s
(IsDirectory, String s) ->
Bool <$> doesDirectoryExist s
(ReadTemplate, String s) -> do
t <- T.readFile s
let c = "CONTENT"