Ticket #3666: test.hs

File test.hs, 159 bytes (added by guest, 5 years ago)

test.hs demonstrating the problem

Line 
1
2module Main where
3
4import System.IO
5import System.FilePath.Find
6
7mp3files = do
8  files <- find always (extension ==? ".mp3") "/home/user/Music"
9  return files