view tests/foldm.ur @ 2062:795b5b75453c

Add 'role' data attribute. Note, that 'role' attribute is a part of reach ARIA API described here: http://www.w3.org/TR/wai-aria/ Among 'role', it defines lots of aria-* attributes
author Sergey Mironov <grrwlf@gmail.com>
date Mon, 07 Jul 2014 10:05:04 +0400
parents 71bafe66dbe1
children
line wrap: on
line source
con currier = fold (fn nm => fn t => fn acc => t -> acc) {}

signature S = sig
        type t
        val x : t

        con rs :: {Type}
        val create : currier rs -> t
end

functor Currier (M : sig con rs :: {Type} end) : S where con rs = M.rs = struct
        val currier : rs :: {Type} -> currier rs =
                fold [currier] (fn nm :: Name => fn t :: Type => fn rest :: {Type} => fn acc => fn x : t => acc) {}

        type t = currier M.rs
        val x = currier [M.rs]

        con rs = M.rs
        val create : t -> t = fn x => x
end

structure ChefsSpecial = Currier(struct
        con rs = [A = int, B = float]
end)

val main = ChefsSpecial.x