F# Path Walk with filtering

// Geht das noch besser?
// Mal abgesehen davon dass der Filter nicht benutzt wird!


let rec walk filter path =
    let files =  path |> Directory.GetFiles |> List.ofSeq |> List.filter filter
    files @ (path |> Directory.GetDirectories |> List.ofSeq |> (List.collect (walk filter)))

// val walk : filter:(string -> bool) -> path:string -> string list