diff --git a/CHANGELOG.txt b/CHANGELOG.txt
--- a/CHANGELOG.txt
+++ b/CHANGELOG.txt
@@ -1,3 +1,7 @@
+0.5, 2009-12-01:
+	New functions:
+		System.FilePath.Glob.globDir :: Pattern -> FilePath -> IO [FilePath]
+
 0.4, 2009-01-31:
 	New functions:
 		System.FilePath.Glob.commonDirectory :: Pattern -> (FilePath, Pattern)
diff --git a/Glob.cabal b/Glob.cabal
--- a/Glob.cabal
+++ b/Glob.cabal
@@ -1,7 +1,7 @@
 Cabal-Version: >= 1.6
 
 Name:        Glob
-Version:     0.4
+Version:     0.5
 Homepage:    http://iki.fi/matti.niemenmaa/glob/
 Synopsis:    Globbing library
 Category:    System
diff --git a/System/FilePath/Glob.hs b/System/FilePath/Glob.hs
--- a/System/FilePath/Glob.hs
+++ b/System/FilePath/Glob.hs
@@ -18,7 +18,7 @@
    , compDefault, compPosix
      -- ** Matching
    , match
-   , globDir
+   , globDir, globDir1
      -- *** Options
    , MatchOptions(..)
    , matchWith
@@ -36,6 +36,8 @@
                                       , compile, compileWith, tryCompileWith
                                       , decompile
                                       )
-import System.FilePath.Glob.Directory (globDir, globDirWith, commonDirectory)
+import System.FilePath.Glob.Directory ( globDir, globDirWith, globDir1
+                                      , commonDirectory
+                                      )
 import System.FilePath.Glob.Match     (match, matchWith)
 import System.FilePath.Glob.Simplify  (simplify)
diff --git a/System/FilePath/Glob/Directory.hs b/System/FilePath/Glob/Directory.hs
--- a/System/FilePath/Glob/Directory.hs
+++ b/System/FilePath/Glob/Directory.hs
@@ -1,7 +1,7 @@
 -- File created: 2008-10-16 12:12:50
 
 module System.FilePath.Glob.Directory
-   ( globDir, globDirWith
+   ( globDir, globDirWith, globDir1
    , commonDirectory
    ) where
 
@@ -94,6 +94,11 @@
    return ( map DL.toList matches
           , nubOrd allOthers \\ allMatches
           )
+
+-- |A convenience wrapper on top of 'globDir', for when you only have one
+-- 'Pattern' you care about.
+globDir1 :: Pattern -> FilePath -> IO [FilePath]
+globDir1 p = fmap (head . fst) . globDir [p]
 
 globDir' :: MatchOptions -> [TypedPattern] -> FilePath
          -> IO (DList FilePath, DList FilePath)