module Control.Biegunka.Source.Layout (Layout, layout, layout_) where
import System.FilePath (takeDirectory, takeFileName)
import System.Directory.Layout (Layout, directory, make)
import Control.Biegunka.Language
import Control.Biegunka.Script
layout
:: Layout
-> FilePath
-> Script Actions ()
-> Script Sources ()
layout dirlayout relpath inner = sourced "dummy" "localhost" relpath inner update
where
update abspath = do
errors <- make (directory (takeFileName abspath) dirlayout) (takeDirectory abspath)
mapM_ print errors
layout_
:: Layout
-> FilePath
-> Script Sources ()
layout_ l p = layout l p (return ())