import Control.Monad (forM_)

    match (fromList ["images/*", "images/microbiologie/"]) $ do

    forM_ ["images/*", "images/microbiologie/*"] $ \f -> match f $ do