def key

ezx@1.11.0.0 · src/lock/up.bend:221

import Base

221# a question as a key. A ledger value never holds a newline, so the fields
222# are kept apart by one.
223def key(ask: Ask) -> String:
224  match ask:
225    case Refs{url, ref}:
226      "refs\n" ++ url ++ "\n" ++ ref
227    case Head{url}:
228      "head\n" ++ url
229    case Tags{url}:
230      "tags\n" ++ url
231    case Above{url, pin, tip}:
232      "above\n" ++ url ++ "\n" ++ pin ++ "\n" ++ tip
233    case Tree{url, rev, entry}:
234      "tree\n" ++ url ++ "\n" ++ rev ++ "\n" ++ entry
235    case Weigh{url, rev}:
236      "weigh\n" ++ url ++ "\n" ++ rev
237    case HubHas{hub, hash}:
238      "hub\n" ++ hub ++ "\n" ++ hash
239    case Ignore{}:
240      "ignore"
241    case Sources{}:
242      "sources"
243    case Clone{url, rev}:
244      "clone\n" ++ url ++ "\n" ++ rev