Add content type for plaintext

frameworks/Haskell/snap/bench/src/Main.hs

@@ -66,7 +66,7 @@ site pool = route
     [ ("json",      jsonHandler)
     , ("db",        dbHandler pool)
     , ("dbs",       dbsHandler pool)
-    , ("plaintext", writeBS "Hello, World!")
+    , ("plaintext", plaintextHandler pool)
     ]
 
 jsonHandler :: Snap ()
@@ -87,6 +87,11 @@ dbsHandler pool = do
     qs <- getQueryParam "queries"
     runAll pool $ maybe 1 fst (qs >>= B.readInt)
 
+plaintextHandler :: Pool Connection -> Snap ()
+plaintextHandler pool = do
+    modifyResponse (setContentType "text/plain")
+    writeBS "Hello, World!"
+
 runAll :: Pool Connection -> Int -> Snap ()
 runAll pool i | i < 1 = runAll pool 1
               | i > 500 = runAll pool 500