(defmodule yuri.user
  (export
   (->parts 1)
   (parsed->parts 1)
   (parse 1)
   (parse-to-list 1)))

(defun userinfo-sep () #":")

(defun ->parts (userinfo)
  (binary:split userinfo (userinfo-sep)))

(defun parsed->parts (parsed)
  (->parts (mref parsed 'userinfo)))

(defun parse (parsed)
 (let ((`(,user ,password) (parsed->parts parsed)))
  `#m(user ,user
      password ,password)))

(defun parse-to-list (parsed)
  (maps:to_list (parse parsed)))