Use MessageDigestAlgorithm facade

ba-st · Sep 14, 2023 · d924276 · d924276
1 parent 8f5611e
commit d924276
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/source/Stargate-Model/EntityTagHasher.class.st b/source/Stargate-Model/EntityTagHasher.class.st
@@ -14,11 +14,12 @@ Class {
 EntityTagHasher >> calculateHash [
 
 	| message |
+	message := String streamContents: [ :stream |
+		           toHash
+			           do: [ :object | stream nextPutAll: object asString ]
+			           separatedBy: [ stream nextPut: $- ] ].
 
-	message := String
-		streamContents:
-			[ :stream | toHash do: [ :object | stream nextPutAll: object asString ] separatedBy: [ stream nextPut: $- ] ].
-	^ ( SHA1 new hashMessage: message ) hex
+	^ MessageDigestAlgorithm sha1 digestStringAsHexString: message
 ]
 
 { #category : #configuring }