Compile.hs

{-|
Module      : Qux.Commands.Compile

Copyright   : (c) Henry J. Wylde, 2015
License     : BSD3
Maintainer  : public@hjwylde.com
-}

{-# OPTIONS_HADDOCK hide, prune #-}

module Qux.Commands.Compile where

import qualified Qux.Commands.Build as Build


data Options = Options {
    optDestination  :: FilePath,
    optFormat       :: Build.Format,
    argFilePaths    :: [FilePath]
    }

handle :: Options -> IO ()
handle options = Build.handle $ buildOptions options

buildOptions :: Options -> Build.Options
buildOptions options = Build.defaultOptions {
    Build.optCompile        = True,
    Build.optDestination    = optDestination options,
    Build.optFormat         = optFormat options,
    Build.argFilePaths      = argFilePaths options
    }