hinstaller-2007.4.23: examples/Example01.hs

{-# LANGUAGE TemplateHaskell, ForeignFunctionInterface #-}

module Main where

import System.Installer
import Foreign
import Foreign.C
import System.IO (putStr, getLine, hFlush, stdout)
import Language.Haskell.TH
import Language.Haskell.TH.Syntax


$(installBinariesFunc "myInstallerFunc"
 [("first","file01.txt"),
  ("second","file02.txt")
 ])

main :: IO ()
main = do { putStr "Enter path to install files in: "
          ; hFlush stdout
          ; path <- getLine
          ; myInstallerFunc Installer_myInstallerFunc_first path
          ; myInstallerFunc Installer_myInstallerFunc_second path
          ; return ()
          }