diff --git a/COPYING b/COPYING
new file mode 100644
--- /dev/null
+++ b/COPYING
@@ -0,0 +1,13 @@
+Copyright © 2012, Stephen Paul Weber <singpolyma.net>
+
+Permission to use, copy, modify, and/or distribute this software for any
+purpose with or without fee is hereby granted, provided that the above
+copyright notice and this permission notice appear in all copies.
+
+THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
diff --git a/Network/Wai/Dispatch.hs b/Network/Wai/Dispatch.hs
new file mode 100644
--- /dev/null
+++ b/Network/Wai/Dispatch.hs
@@ -0,0 +1,16 @@
+-- | Simple module to wrap yesod-routes for use with WAI
+module Network.Wai.Dispatch (dispatch, Route(..), Piece(..)) where
+
+import Data.Maybe (fromMaybe)
+import Network.Wai (Application, Request(pathInfo, requestMethod))
+import Yesod.Routes.Dispatch (Route(..), Piece(..), toDispatch)
+import Data.Text (toUpper)
+import Data.Text.Encoding (decodeUtf8)
+
+dispatch :: Application         -- ^ Default 'Application' (likely 404)
+         -> [Route Application] -- ^ Routes
+         -> Application
+dispatch defaultApp routes env = app env
+	where
+	app = fromMaybe defaultApp (toDispatch routes routeOn)
+	routeOn = toUpper (decodeUtf8 $ requestMethod env) : pathInfo env
diff --git a/README b/README
new file mode 100644
--- /dev/null
+++ b/README
@@ -0,0 +1,6 @@
+Provides a simple wrapper for taking Route data mapping to WAI
+'Application's and a default 'Application' and producing a single
+'Application'.
+
+You may find the route-generator package useful for generating route
+data to use with this library.
diff --git a/Setup.hs b/Setup.hs
new file mode 100644
--- /dev/null
+++ b/Setup.hs
@@ -0,0 +1,3 @@
+import Distribution.Simple
+
+main = defaultMain
diff --git a/wai-dispatch.cabal b/wai-dispatch.cabal
new file mode 100644
--- /dev/null
+++ b/wai-dispatch.cabal
@@ -0,0 +1,39 @@
+name:            wai-dispatch
+version:         0.1
+cabal-version:   >= 1.8
+license:         OtherLicense
+license-file:    COPYING
+category:        Web
+copyright:       © 2012 Stephen Paul Weber
+author:          Stephen Paul Weber <singpolyma@singpolyma.net>
+maintainer:      Stephen Paul Weber <singpolyma@singpolyma.net>
+stability:       experimental
+tested-with:     GHC == 7.0.3
+synopsis:        Nice wrapper around yesod-routes for use with WAI
+homepage:        https://github.com/singpolyma/wai-dispatch
+bug-reports:     https://github.com/singpolyma/wai-dispatch/issues
+build-type:      Simple
+description:
+        Provides a simple wrapper for taking Route data mapping to WAI
+        'Application's and a default 'Application' and producing a single
+        'Application'.
+        .
+        You may find the route-generator package useful for generating route
+        data to use with this library.
+
+extra-source-files:
+        README
+
+library
+        exposed-modules:
+                Network.Wai.Dispatch
+
+        build-depends:
+                base == 4.*,
+                text >= 0.7,
+                yesod-routes,
+                wai
+
+source-repository head
+        type:     git
+        location: git://github.com/singpolyma/wai-dispatch.git