Debugging default seed installation.
This commit is contained in:
parent
fd11bfce87
commit
2a966e6e0d
@ -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 }
|
||||
|
Loading…
Reference in New Issue
Block a user