Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[cleanup] open: remove Base in qmlcps

  • Loading branch information...
commit 36b482f9d792e7b0a769085bb82963f3b1f04258 1 parent 34fba6b
Raja authored
Showing with 2 additions and 3 deletions.
  1. +2 −3 qmlcps/qmlCpsIL.ml
5 qmlcps/qmlCpsIL.ml
View
@@ -46,6 +46,8 @@
The IL ast should be updated to support annotation
*)
+module List = BaseList
+
module IL = struct
type ident = Ident.t
@@ -195,7 +197,6 @@ end
module Subs : TraverseInterface.S2 with type 'a t = IL.term constraint 'a = _ * _ * _ =
struct
open IL
- open Base
type 'a t = term constraint 'a = _ * _ * _
let foldmap tra acc t =
@@ -293,7 +294,6 @@ sig
end =
struct
open IL
- open Base
let foldmap_vident tra acc ((Value id) as v) =
let acc, fid = tra acc id in
@@ -539,7 +539,6 @@ sig
end =
struct
open IL
- open Base
let counter = ref 0
let count () = !counter
Please sign in to comment.
Something went wrong with that request. Please try again.