module System.Directory.Layout
(
DL, Layout, file, file_, directory, directory_
, DLMakeWarning(..), make
, DLCheckFailure(..), check
, layout, layout'
) where
import Data.Text (Text)
import System.Directory.Layout.Internal (DL(..), Layout)
import System.Directory.Layout.Check (DLCheckFailure(..), check)
import System.Directory.Layout.Make (DLMakeWarning(..), make)
import System.Directory.Layout.Parser (layout, layout')
file ∷ FilePath → Text → Layout
file x c = F x (Just c) (return ())
file_ ∷ FilePath → Layout
file_ x = F x Nothing (return ())
directory ∷ FilePath → Layout → Layout
directory x d = D x d (return ())
directory_ ∷ FilePath → Layout
directory_ x = D x (return ()) (return ())