Limit number of returned codepoints

2023-03-17 02:19:15 +01:00 · 2023-03-17 02:19:15 +01:00 · 57173d14dd
commit 57173d14dd
parent fde68ee833
1 changed files with 8 additions and 1 deletions
--- 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)