Get recursive directory contents

Thanks “Real World Haskell”!