Fix haskell fortune routes (#5845)

* Fix haskell fortune routes

* Fix haskell fortune routes

frameworks/Haskell/servant/benchmark_config.json

@@ -23,7 +23,7 @@
     },
     "beam": {
       "db_url": "/db",
-      "fortune_url": "/fortune",
+      "fortune_url": "/fortunes",
       "port": 7041,
       "approach": "Realistic",
       "classification": "Micro",
@@ -44,7 +44,7 @@
     },
     "psql-simple": {
       "db_url": "/db",
-      "fortune_url": "/fortune",
+      "fortune_url": "/fortunes",
       "port": 7041,
       "approach": "Realistic",
       "classification": "Micro",

frameworks/Haskell/servant/servant-tfb/src/Lib.hs

@@ -60,7 +60,7 @@ data Routes route = Routes
     , routeJson      :: route :- "json"      :> Get '[JSON]      JsonData
 #ifdef HAS_DB
     , routeDb        :: route :- "db"        :> Get '[JSON]      World
-    , routeFortune   :: route :- "fortune"   :> Get '[HTML]      FortunePage
+    , routeFortune   :: route :- "fortunes"   :> Get '[HTML]      FortunePage
 #endif
     }
   deriving (Generic)

frameworks/Haskell/spock/benchmark_config.json

@@ -5,7 +5,7 @@
       "json_url": "/json",
       "db_url": "/db",
       "query_url": "/queries?queries=",
-      "fortune_url": "/fortune",
+      "fortune_url": "/fortunes",
       "update_url": "/updates?queries=",
       "plaintext_url": "/plaintext",
       "port": 3000,

frameworks/Haskell/spock/src/Main.hs

@@ -118,6 +118,6 @@ main = do
         get "json"        test1
         get "db"          test2
         get "queries"   $ test3 pool
-        get "fortune"     test4
+        get "fortunes"     test4
         get "updates"   $ test5 pool
         get "plaintext"   test6

frameworks/Haskell/warp/benchmark_config.json

@@ -5,7 +5,7 @@
       "json_url": "/json",
       "db_url": "/db",
       "query_url": "/queries?queries=",
-      "fortune_url": "/fortune",
+      "fortune_url": "/fortunes",
       "update_url": "/updates?queries=",
       "plaintext_url": "/plaintext",
       "port": 7041,
@@ -28,7 +28,7 @@
       "json_url": "/json",
       "db_url": "/db",
       "query_url": "/queries?queries=",
-      "fortune_url": "/fortune",
+      "fortune_url": "/fortunes",
       "update_url": "/updates?queries=",
       "plaintext_url": "/plaintext",
       "port": 7041,
@@ -51,7 +51,7 @@
       "json_url": "/json",
       "db_url": "/db",
       "query_url": "/queries?queries=",
-      "fortune_url": "/fortune",
+      "fortune_url": "/fortunes",
       "update_url": "/updates?queries=",
       "plaintext_url": "/plaintext",
       "port": 7041,

frameworks/Haskell/warp/warp-shared/src/Lib.hs

@@ -47,7 +47,7 @@ app gen dbPool req respond = do
       -> respond getJson
     ("GET", ["db"])
       -> respond =<< getWorld gen dbPool
-    ("GET", ["fortune"])
+    ("GET", ["fortunes"])
       -> respond =<< getFortunes dbPool
     ("GET", ["queries"])
       -> respond =<< getWorlds gen dbPool mCount