module System.Directory.Layout
(
DL, Layout, file, file_, directory, directory_
, make, check
, LayoutException(..)
) where
import Data.Default (def)
import Data.Text (Text)
import System.Directory.Layout.Internal (DL(..), Layout)
import System.Directory.Layout.Traverse (make, check)
import System.Directory.Layout.Errored (LayoutException(..))
file :: FilePath -> Text -> Layout
file x t = F x (T t ()) def
file_ :: FilePath -> Layout
file_ x = F x def def
directory :: FilePath -> Layout -> Layout
directory x d = D x d def
directory_ :: FilePath -> Layout
directory_ x = D x def def