module Quox.Name import public Data.SnocList %default total public export data BaseName = UN String -- user-given name private 0 BRepr : Type BRepr = String private %inline brepr : BaseName -> BRepr brepr (UN x) = x export Eq BaseName where (==) = (==) `on` brepr export Ord BaseName where compare = compare `on` brepr export baseStr : BaseName -> String baseStr (UN x) = x export FromString BaseName where fromString = UN public export record Name where constructor MakeName mods : SnocList String base : BaseName private 0 Repr : Type Repr = (SnocList String, BRepr) private %inline repr : Name -> Repr repr x = (x.mods, brepr x.base) export Eq Name where (==) = (==) `on` repr export Ord Name where compare = compare `on` repr export FromString Name where fromString x = MakeName [<] (fromString x) export toDots : Name -> String toDots x = fastConcat $ cast $ map (<+> ".") x.mods :< baseStr x.base