createFile base (File name (Template tname tmpl conf) attrs) = do
    result <- useTemplateWith tname tmpl conf
    createFile base (File name (Content result) attrs)
createFile base (File name (Template tname tmpl conf) attrs) = do
    result <- useTemplateWith tname tmpl conf
    createFile base (File name (Content result) attrs)
createFile base (File name (Template tname tmpl conf) attrs) = do
    result <- useTemplateWith tname tmpl conf
    createFile base (File name (Content result) attrs)