Permalink
Browse files

Remove debug statements

  • Loading branch information...
1 parent 4f290be commit 0d943024a5a09cb7e213fc39efeb133e7ef27dd7 @samoht committed Nov 10, 2010
Showing with 3 additions and 5 deletions.
  1. +1 −1 cass_lexer.mll
  2. +2 −4 css.ml
View
2 cass_lexer.mll
@@ -57,7 +57,7 @@ rule token = parse
STRING x }
and dollar = parse
- | ([^ '$']* as str) '$' { update lexbuf; Printf.eprintf "[LEXER] %s\n" str; str }
+ | ([^ '$']* as str) '$' { update lexbuf; str }
and dquote = parse
| ([^ '"']* as str) '"' { update lexbuf; str }
View
6 css.ml
@@ -77,14 +77,12 @@ open Css
(* From http://www.webdesignerwall.com/tutorials/cross-browser-css-gradient/ *)
let gradient ~(low : t) ~(high : t) : t =
- let r = <:css<
+ <:css<
background: $low$; /* for non-css3 browsers */
filter: progid:DXImageTransform.Microsoft.gradient(startColorstr=$high$, endColorstr=$low$); /* for IE */
background: -webkit-gradient(linear, left top, left bottom, from($high$), to($low$)); /* for webkit browsers */
background: -moz-linear-gradient(top, $high$, $low$); /* for firefox 3.6+ */
- >> in
-
-Printf.eprintf "[GRADIENT]: %s\n" (to_string r); r
+ >>
let rounded : t =
<:css<

0 comments on commit 0d94302

Please sign in to comment.