Skip to content
Browse files

wip- bitfields need int_to_bool

  • Loading branch information...
1 parent 91a284b commit b53c79e493fd57bd2559cd02622028c12620d7a1 @mor1 mor1 committed Jun 19, 2012
Showing with 4 additions and 0 deletions.
  1. +4 −0 lib/operators.ml
View
4 lib/operators.ml
@@ -58,3 +58,7 @@ let join c l = String.concat c l
let slide buf i = match Cstruct.shift_left buf i with
| true -> buf
| false -> failwith (sprintf "slide %d failed" i)
+
+let int_to_bool = function
+ | 0 -> false
+ | _ -> true

0 comments on commit b53c79e

Please sign in to comment.
Something went wrong with that request. Please try again.