Permalink
Browse files

Remove unused function

  • Loading branch information...
1 parent 08d6a6d commit 96f7f06ddd3fd4ca9c9a0e2b3a11879fb88c4ee1 @andrenth committed Jun 28, 2012
Showing with 0 additions and 20 deletions.
  1. +0 −20 src/postfix.ml
View
@@ -60,23 +60,3 @@ let parse_lines lines =
AttrMap.empty
lines in
attrs_of_map map
-
-let with_attrs f =
- let attrs = ref AttrMap.empty in
- try
- while true do
- let line = input_line stdin in
- match parse_line line with
- | `Parsed (k, v) ->
- if needs_attr k then
- attrs := AttrMap.add k v !attrs
- | `Finished ->
- (match attrs_of_map !attrs with
- | None -> ()
- | Some a -> f a);
- attrs := AttrMap.empty
- | `Error ->
- ()
- done;
- with End_of_file ->
- failwith "eof"

0 comments on commit 96f7f06

Please sign in to comment.