Debugging default seed installation.

This commit is contained in:
Diego Ruidajo 2022-01-21 17:21:52 -05:00
parent fd11bfce87
commit 2a966e6e0d

View File

@ -23,11 +23,10 @@ TWSeed class >> initialize [
{ #category : #accessing }
TWSeed class >> installDefaultInto: folder as: shortName [
| url file |
| url subfolder |
url := self list first demo.
file := (folder / shortName / 'index.html') asFileReference.
url asUrl saveContentsToFile: file.
^ file asFileReference
subfolder := (folder / shortName) ensureCreateDirectory.
^ url asUrl saveContentsToFile: subfolder / 'index.html'.
]
{ #category : #accessing }