-- Create an empty dir in target, or a directory copied from the specified
-- template dir if present.
makeDirOrTpl :: FTemplate -> FilePath -> FilePath -> IO ()
makeDirOrTpl Default      target _   = createDirectory target
makeDirOrTpl :: FTemplate -> FilePath -> FilePath -> IO ()
makeDirOrTpl Default      target _   = createDirectory target
makeDirOrTpl Default      target _   = createDirectory target