diff --git a/postgresql-schema.cabal b/postgresql-schema.cabal
--- a/postgresql-schema.cabal
+++ b/postgresql-schema.cabal
@@ -1,5 +1,5 @@
 name:                  postgresql-schema
-version:               0.1.3
+version:               0.1.4
 synopsis:              PostgreSQL Schema Management
 description:           Please see README.md
 homepage:              https://github.com/mfine/postgresql-schema
diff --git a/src/Database/PostgreSQL/Schema.hs b/src/Database/PostgreSQL/Schema.hs
--- a/src/Database/PostgreSQL/Schema.hs
+++ b/src/Database/PostgreSQL/Schema.hs
@@ -85,9 +85,14 @@
 
 -- migrations
 
+ls_f :: FilePath -> Sh [FilePath]
+ls_f dir = do
+  items <- ls dir
+  filterM test_f items
+
 findMigrations :: FilePath -> Sh [FilePath]
 findMigrations dir = do
-  migrations <- findWhen test_f dir
+  migrations <- ls_f dir
   forM migrations $ relativeTo dir
 
 migrate :: [FilePath] -> Text -> Text -> Text -> Sh ()