From 57173d14dd63b8aee5155b34141e21de20d3605b Mon Sep 17 00:00:00 2001 From: Paul Brinkmeier Date: Fri, 17 Mar 2023 02:19:15 +0100 Subject: [PATCH] Limit number of returned codepoints --- app/Main.hs | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/app/Main.hs b/app/Main.hs index be62138..48e7072 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -128,7 +128,14 @@ newtype CodepointsModel = CodepointsModel } mkCodepointsModel :: [(Word, Word)] -> CodepointsModel -mkCodepointsModel = CodepointsModel . map go . concatMap (uncurry enumFromTo) +mkCodepointsModel = + CodepointsModel + -- Limit number of returned codepoints. Otherwise it's + -- too easy to provoke massive response bodies with requests like + -- /codepoints/0-99999999 + . take 100000 + . map go + . concatMap (uncurry enumFromTo) where go codepoint = (codepoint, toChar codepoint)