diff options
| author | Andrew <saintruler@gmail.com> | 2020-11-27 17:50:54 +0400 |
|---|---|---|
| committer | Andrew <saintruler@gmail.com> | 2020-11-27 17:50:54 +0400 |
| commit | 1cc6cfef971ccb3c1d70f2a5570e445556e4f6fb (patch) | |
| tree | 4773f8178225068e19bd7418622f8dd9084543ac /Router.hs | |
| parent | fb7e450d917ec87202f9de019238b78c1b645328 (diff) | |
Changed directory structure
Diffstat (limited to 'Router.hs')
| -rw-r--r-- | Router.hs | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/Router.hs b/Router.hs deleted file mode 100644 index 17ee11c..0000000 --- a/Router.hs +++ /dev/null @@ -1,15 +0,0 @@ -module Router where - -import Response -import Request -import Http - --- Route callback url method -data Route = Route (Request -> IO Response) String Method - -resolve :: [Route] -> Request -> IO Response -resolve [] _ = return notFoundResponse -resolve (Route callback routeUrl _ : routerTable) req @ (Request _ url _) = - if url == routeUrl then - callback req - else resolve routerTable req |