createFile :: FilePath -> FsTree -> IO ()
createFile base (File name (Content txt) _)                  = T.writeFile (base </> name) txt
createFile :: FilePath -> FsTree -> IO ()
createFile base (File name (Content txt) _)                  = T.writeFile (base </> name) txt
createFile base (File name (Content txt) _)                  = T.writeFile (base </> name) txt