#lang racket/base

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

(provide find-flac-files)

(define (find-flac-files base-dir)
  (sort (find-files flac-path? base-dir)
        string<?
        #:key path->string))