38 lines
1.2 KiB
Haskell
38 lines
1.2 KiB
Haskell
module FunctionImplementations.IO
|
|
( -- ListDirectory(..)
|
|
-- , ReadTemplate(..)
|
|
-- , ConvertImage(..)
|
|
-- , SaveFile(..)
|
|
-- , RunPandoc(..)
|
|
) where
|
|
|
|
import Sources()
|
|
import Types
|
|
|
|
import Language.Haskell.TH.Syntax
|
|
|
|
-- data ListDirectory = ListDirectory deriving (Show, Lift)
|
|
-- instance IsFunctionIOId ListDirectory
|
|
-- instance IsFunctionIO ListDirectory FilePath [FilePath] where
|
|
-- runFIO ListDirectory _path = undefined
|
|
|
|
-- data ReadTemplate = ReadTemplate deriving (Show, Lift)
|
|
-- instance IsFunctionIOId ReadTemplate
|
|
-- instance IsFunctionIO ReadTemplate FilePath Template where
|
|
-- runFIO ReadTemplate _path = undefined
|
|
|
|
-- data ConvertImage = ConvertImage deriving (Show, Lift)
|
|
-- instance IsFunctionIOId ConvertImage
|
|
-- instance IsFunctionIO ConvertImage ((FilePath, FilePath), ImageConversionSettings) () where
|
|
-- runFIO ConvertImage ((_, _), ResizeToWidth _) = undefined
|
|
|
|
-- data SaveFile = SaveFile deriving (Show, Lift)
|
|
-- instance IsFunctionIOId SaveFile
|
|
-- instance IsFunctionIO SaveFile (String, FilePath) () where
|
|
-- runFIO SaveFile _source = undefined
|
|
|
|
-- data RunPandoc = RunPandoc deriving (Show, Lift)
|
|
-- instance IsFunctionIOId RunPandoc
|
|
-- instance IsFunctionIO RunPandoc String String where
|
|
-- runFIO RunPandoc _source = undefined
|