Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[cleanup] open: remove Base in libnet

  • Loading branch information...
commit 0d81e95e50e6a56232e10feeced1de6e849f2d80 1 parent 28ca03b
Raja authored
View
4 libnet/cluster.ml
@@ -19,7 +19,9 @@
@author Adam Koprowski
**)
-open Base
+(* depends *)
+module List = BaseList
+module String = BaseString
#<Debugvar:LIBNET_CLUSTER>
View
1  libnet/clusterComm.ml
@@ -19,7 +19,6 @@
@author Adam Koprowski
**)
-open Base
#<Debugvar:LIBNET_CLUSTER>
View
2  libnet/email/email.trx
@@ -15,7 +15,7 @@
You should have received a copy of the GNU Affero General Public License
along with OPA. If not, see <http://www.gnu.org/licenses/>.
*)
-{{ open Base }}
+{{ }}
+email : {string * (string * string)}
<- name [<] spacing address [>] spacing {{ __1, __4 }}
View
1  libnet/ftpClientCore.proto
@@ -21,7 +21,6 @@
-debugvar PROTOCOL_DEBUG
-protocol FTP
--open Base
-open Printf
-open Rcontent
View
4 libnet/http/accept.ml
@@ -17,10 +17,12 @@
*)
(* Accept: see the interface file for docs. *)
open Printf
-open Base
open HttpTools
open HttpServerTypes
+(* depends *)
+module List = BaseList
+
type el = string list * string list list * float option
type t = string option * char option * el list
View
4 libnet/http/compression.ml
@@ -19,8 +19,10 @@
@author Frederic Ye
**)
+(* depends *)
+module String = BaseString
+module List = BaseList
-open Base
open Requestdef
(** This module is used for compressing response in an HTTP server.
View
4 libnet/http/cookie.ml
@@ -27,8 +27,8 @@
(* ic: internal cookie, doesn't change, the server can use it to identify someone *)
(* ec: external cookie, change often, given to the browser *)
-(* TODO remove *)
-open Base
+(* depends *)
+module String = BaseString
let (|>) = InfixOperator.(|>)
View
1  libnet/http/requestLex.mll
@@ -17,7 +17,6 @@
*)
(* The lexer definition *)
{
-open Base
open RequestParse
open Printf
View
1  libnet/http/requestRaw.ml
@@ -16,7 +16,6 @@
along with OPA. If not, see <http://www.gnu.org/licenses/>.
*)
open Printf
-open Base
open Option
open Rp_typ
open Rp_hdr
View
1  libnet/http/requestUlex.ml
@@ -16,7 +16,6 @@
along with OPA. If not, see <http://www.gnu.org/licenses/>.
*)
(* The lexer definition *)
-open Base
open RequestParse
open Printf
View
2  libnet/http/url.trx
@@ -16,7 +16,7 @@
along with OPA. If not, see <http://www.gnu.org/licenses/>.
*)
types:{{
-open Base.Char
+open BaseChar
type url = { secure : bool
; host : string (* FIXME : en fait, plus pr�cis que string *)
; port : int
View
6 libnet/http/userCompat.ml
@@ -15,8 +15,12 @@
You should have received a copy of the GNU Affero General Public License
along with OPA. If not, see <http://www.gnu.org/licenses/>.
*)
+
+(* depends *)
+module String = BaseString
+module List = BaseList
+
open Printf
-open Base
open UserCompatType
open Rp_brow
View
1  libnet/httpServerCore.proto
@@ -21,7 +21,6 @@
-debugvar PROTOCOL_DEBUG
-protocol HTTP
--open Base
-open Rcontent
-open HttpTools
-open HttpServerTypes
View
3  libnet/http_client.ml
@@ -22,9 +22,6 @@
@author David Rajchenbach-Teller
**)
-(* open Base *)
-(* open Protocol *)
-
#<Debugvar:TESTING>
open Http_common
View
1  libnet/http_common.ml
@@ -19,7 +19,6 @@
@author Laurent Le Brun
**)
-open Base
open Requestdef
let version = string_of_int BuildInfos.git_version_counter
Please sign in to comment.
Something went wrong with that request. Please try again.