Review and clean Login>>#host

Fix #132
pharo-rdbms · Jul 15, 2023 · a656e14 · a656e14
1 parent 62298c4
commit a656e14
Showing 1 changed file with 9 additions and 10 deletions.
diff --git a/src/Glorp/Login.class.st b/src/Glorp/Login.class.st
@@ -123,17 +123,16 @@ Login >> hash [
 Login >> host [
 	"connect string looks like hostname:portNumber_db-name.
 	:portNumber is optional"
+
 	| str portIndex index dbIndex |
-	host == nil
-		ifFalse: [^ host].
-	host == nil
-		ifTrue: [str := self connectString.
-			portIndex := index := str indexOf: $:.
-			dbIndex := str indexOf: $_.
-			index = 0 ifTrue: [index := dbIndex].
-			host := index > 0
-				ifTrue: [ str copyFrom: 1 to: index - 1 ].
-			^ host]
+	host ifNotNil: [ ^ host ].
+
+	str := self connectString.
+	portIndex := index := str indexOf: $:.
+	dbIndex := str indexOf: $_.
+	index = 0 ifTrue: [ index := dbIndex ].
+	host := index > 0 ifTrue: [ str copyFrom: 1 to: index - 1 ].
+	^ host
 ]
 
 { #category : #accessing }