#lang racket/base

(require racket/list
         racket/path
         "util.rkt")

(provide find-flac-files
         find-regular-files)

(define (sort-paths paths)
  (sort paths string<? #:key path->string))

(define (find-regular-files base-dir)
  (sort-paths (directory-file-paths base-dir)))

(define (find-flac-files base-dir)
  (filter flac-path? (find-regular-files base-dir)))