Skip to content
Browse files

command: Add a list syntax for [find,use]

  • Loading branch information...
1 parent e4b6d2f commit 7e87cdddd453204702f920c098e468f49c146e3d @let-def let-def committed Feb 21, 2013
Showing with 1 addition and 0 deletions.
  1. +1 −0 command.ml
View
1 command.ml
@@ -641,6 +641,7 @@ let command_find = {
handler =
begin fun _ state -> function
+ | [`String "use" ; `List packages]
| (`String "use" :: packages) ->
let packages = List.map
(function `String pkg -> pkg | _ -> invalid_arguments ())

0 comments on commit 7e87cdd

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