diff options
| author | Andrew Guschin <guschin.drew@gmail.com> | 2023-03-05 13:45:37 +0400 |
|---|---|---|
| committer | Andrew Guschin <guschin.drew@gmail.com> | 2023-03-05 13:47:41 +0400 |
| commit | a0e8e5a91d15ed8c79f4a1b5914d3a6242c0cbd3 (patch) | |
| tree | 76f76788523a16c0db8cb8f3a90b23912acd37d4 /Web/Router.hs | |
| parent | dd73de2e563c332c5a90bb21c5c7e6cbebc0ab86 (diff) | |
Migrated project to cabal
Diffstat (limited to 'Web/Router.hs')
| -rw-r--r-- | Web/Router.hs | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/Web/Router.hs b/Web/Router.hs deleted file mode 100644 index 234f30a..0000000 --- a/Web/Router.hs +++ /dev/null @@ -1,17 +0,0 @@ -module Web.Router where - -import Data.Text (Text) - -import Web.Response -import Web.Request -import Web.Http - --- Route callback url method -data Route = Route (Request -> IO Response) Text 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 |