simplified function

migrate.rkt

@@ -79,17 +79,15 @@
     (lambda (key)
       (hash-ref hash key ""))))
 
-(define translate-val
+(define (translate-val prop val)
-  (let ([hash (make-hash
+  (match prop
-    (list
+    ["addresses" (format "\"~a\"" val)]
-      [cons "addresses" (lambda (val) (format "\"~a\"" val))]
+    ["realname" (regexp-replace #px"\\s" val "")]
-      [cons "realname" (lambda (val) (regexp-replace #px"\\s" val ""))]
+    ["username" (regexp-replace #px"\\s" val "")]
-      [cons "username" (lambda (val) (regexp-replace #px"\\s" val ""))]))])
+    ["autoconnect" "on"]
-    (lambda (prop val)
+    [_ val]))
-      ((hash-ref hash
+
-                prop
+
-                (const identity))
-       val))))
 
 (define (take-while pred xs)
   (cond