diff --git a/shikensu.cabal b/shikensu.cabal
--- a/shikensu.cabal
+++ b/shikensu.cabal
@@ -1,5 +1,5 @@
 name: shikensu
-version: 0.2.0
+version: 0.2.1
 category: File IO
 
 synopsis:
diff --git a/src/Shikensu.hs b/src/Shikensu.hs
--- a/src/Shikensu.hs
+++ b/src/Shikensu.hs
@@ -35,8 +35,8 @@
 5. Merge the dictionaries into one dictionary.
 
 -}
-list :: FilePath -> [Pattern] -> IO Dictionary
-list rootDir patterns =
+list :: [Pattern] -> FilePath -> IO Dictionary
+list patterns rootDir =
     patterns
         |> compilePatterns
         |> globDir rootDir
@@ -45,9 +45,11 @@
         |> fmap (List.concat)
 
 
-listF :: [Pattern] -> FilePath -> IO Dictionary
-listF patterns rootDir =
-    list rootDir patterns
+{-| Flipped version of `list`.
+-}
+listF :: FilePath -> [Pattern] -> IO Dictionary
+listF rootDir patterns =
+    list patterns rootDir
 
 
 
diff --git a/tests/Test/Contrib.hs b/tests/Test/Contrib.hs
--- a/tests/Test/Contrib.hs
+++ b/tests/Test/Contrib.hs
@@ -44,7 +44,7 @@
 
 list :: Shikensu.Pattern -> IO Shikensu.Dictionary
 list pattern =
-    rootPath >>= Shikensu.listF [pattern]
+    rootPath >>= Shikensu.list [pattern]
 
 
 example_md :: IO Shikensu.Dictionary
diff --git a/tests/Test/Example.hs b/tests/Test/Example.hs
--- a/tests/Test/Example.hs
+++ b/tests/Test/Example.hs
@@ -36,7 +36,7 @@
 
 dictionary_io :: String -> IO Dictionary
 dictionary_io absolutePathToCwd =
-    Shikensu.list absolutePathToCwd ["fixtures/*.md"]
+    Shikensu.list ["fixtures/*.md"] absolutePathToCwd
         >>= read
         >>= flow
         >>= write "./build"
diff --git a/tests/Test/Shikensu.hs b/tests/Test/Shikensu.hs
--- a/tests/Test/Shikensu.hs
+++ b/tests/Test/Shikensu.hs
@@ -24,7 +24,7 @@
 testRegular =
     let
         pattern = "tests/**/*.md"
-        dictionary = fmap sort $ rootPath >>= Shikensu.listF [pattern]
+        dictionary = fmap sort $ rootPath >>= Shikensu.list [pattern]
         definition = fmap List.head dictionary
         localPath = "fixtures/example.md"
     in
@@ -54,7 +54,7 @@
 testDot =
     let
         pattern = "./tests/**/*.md"
-        dictionary = fmap sort $ rootPath >>= Shikensu.listF [pattern]
+        dictionary = fmap sort $ rootPath >>= Shikensu.list [pattern]
         definition = fmap List.head dictionary
         localPath = "fixtures/example.md"
     in
@@ -84,7 +84,7 @@
 testWithoutWd =
     let
         pattern = "**/*.md"
-        dictionary = fmap sort $ testsPath >>= Shikensu.listF [pattern]
+        dictionary = fmap sort $ testsPath >>= Shikensu.list [pattern]
         definition = fmap List.head dictionary
         localPath = "fixtures/example.md"
     in
@@ -114,7 +114,7 @@
 testRootFile =
     let
         pattern = "*.md"
-        dictionary = fmap sort $ rootPath >>= Shikensu.listF [pattern]
+        dictionary = fmap sort $ rootPath >>= Shikensu.list [pattern]
         definition = fmap List.head dictionary
         localPath = "CHANGELOG.md"
     in
diff --git a/tests/Test/Utilities.hs b/tests/Test/Utilities.hs
--- a/tests/Test/Utilities.hs
+++ b/tests/Test/Utilities.hs
@@ -30,8 +30,8 @@
     let
         result =
             Utils.lsequence
-                [ ( "a", rootPath >>= Shikensu.listF ["tests/fixtures/example.md"] )
-                , ( "b", rootPath >>= Shikensu.listF ["tests/fixtures/example.md"] )
+                [ ( "a", rootPath >>= Shikensu.list ["tests/fixtures/example.md"] )
+                , ( "b", rootPath >>= Shikensu.list ["tests/fixtures/example.md"] )
                 ]
     in
         testCase "Test lsequence"
@@ -47,7 +47,7 @@
 
         dictionary =
             rootPath
-                >>= Shikensu.listF ["tests/fixtures/example.md"]
+                >>= Shikensu.list ["tests/fixtures/example.md"]
                 >>= flow
 
         def =