File: open_functor.ur

package info (click to toggle)
urweb 20170105%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 8,640 kB
  • ctags: 9,972
  • sloc: ansic: 6,402; lisp: 1,198; makefile: 173; sh: 44; sql: 1
file content (16 lines) | stat: -rw-r--r-- 227 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
signature S = sig
        type t
        val x : t
end

functor F (M : S) : S where type t = M.t = struct
        type t = M.t
        val x = M.x
end

structure M = F(struct
        type t = int
        val x = 0
end)

open M