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