feat(spec,hashing-algorithm): limit algorithm? contract, export struct contracts

Signed-off-by: Kaiyang Wu <[email protected]>

Author: OriginCode

aosc/private/hashing-algorithm.rkt

@@ -0,0 +1,12 @@
+#lang racket/base
+
+(require racket/contract)
+
+(provide (all-defined-out))
+
+(define/contract (algorithm? sym)
+  (-> symbol? boolean?)
+  (if (member sym '(md2 md5 sha1 sha256 sha224 sha384 sha512 blake2b blake2s
+                    sha3_224 sha3_256 sha3_384 sha3_512))
+      #t
+      #f))

aosc/private/spec.rkt

@@ -4,16 +4,20 @@
          racket/contract
          racket/string
          net/url
+         "hashing-algorithm.rkt"
          "arch.rkt"
          "utils.rkt")
 
-(provide branch
+(provide src-option?
+         branch
          commit
          rename
          submodule
          copy-repo?
+         src?
          git
          tbl
+         chksum?
          skip
          checksum
          anitya
@@ -108,7 +112,7 @@
 (struct chksum (type value) #:transparent)
 
 (define/contract (checksum algorithm value)
-  (-> symbol? string? chksum?)
+  (-> algorithm? string? chksum?)
   (chksum algorithm value))
 
 (define/contract (skip)