app/Main.hs

@@ -13,9 +13,6 @@
 
 module Main (main) where
 
-import Control.DeepSeq (force)
-import Control.Exception (evaluate)
-import Control.Monad (void)
 import Data.Char (chr)
 import Data.FileEmbed (embedFile)
 import Data.Foldable (for_)
@@ -58,12 +55,7 @@ import qualified UToy.Names as Names
 import qualified UToy.Parsers as Parsers
 
 main :: IO ()
-main = do
+main = Warp.run 3000 app
-  -- Forced evaluation of Names.lowerNames to reduce number of thunks.
-  putStrLn "* Building search index"
-  void $ evaluate $ force Names.lowerNames
-  putStrLn "* Listening on http://localhost:3000"
-  Warp.run 3000 app
 
 app :: Application
 app = serve (Proxy :: Proxy API) server

flake.lock

@@ -1,59 +1,25 @@
 {
   "nodes": {
-    "flake-utils": {
-      "inputs": {
-        "systems": "systems"
-      },
-      "locked": {
-        "lastModified": 1731533236,
-        "narHash": "sha256-l0KFg5HjrsfsO/JpG+r7fRrqm12kzFHyUHqHCVpMMbI=",
-        "owner": "numtide",
-        "repo": "flake-utils",
-        "rev": "11707dc2f618dd54ca8739b309ec4fc024de578b",
-        "type": "github"
-      },
-      "original": {
-        "owner": "numtide",
-        "repo": "flake-utils",
-        "type": "github"
-      }
-    },
     "nixpkgs": {
       "locked": {
-        "lastModified": 1751290243,
+        "lastModified": 1703693486,
-        "narHash": "sha256-kNf+obkpJZWar7HZymXZbW+Rlk3HTEIMlpc6FCNz0Ds=",
+        "narHash": "sha256-tuzNTOs+1zR2BEVKKrRRGdpR/n095AXIcT8Me1px2bI=",
         "owner": "nixos",
         "repo": "nixpkgs",
-        "rev": "5ab036a8d97cb9476fbe81b09076e6e91d15e1b6",
+        "rev": "671c2d3e1506a7ee1583515ca80cb3474fdc9c95",
         "type": "github"
       },
       "original": {
         "owner": "nixos",
-        "ref": "release-24.11",
+        "ref": "release-23.11",
         "repo": "nixpkgs",
         "type": "github"
       }
     },
     "root": {
       "inputs": {
-        "flake-utils": "flake-utils",
         "nixpkgs": "nixpkgs"
       }
-    },
-    "systems": {
-      "locked": {
-        "lastModified": 1681028828,
-        "narHash": "sha256-Vy1rq5AaRuLzOxct8nz4T6wlgyUR7zLU309k9mBC768=",
-        "owner": "nix-systems",
-        "repo": "default",
-        "rev": "da67096a3b9bf56a91d16901293e51ba5b49a27e",
-        "type": "github"
-      },
-      "original": {
-        "owner": "nix-systems",
-        "repo": "default",
-        "type": "github"
-      }
     }
   },
   "root": "root",

flake.nix

@@ -1,63 +1,37 @@
 {
   description = "Unicode toy";
 
-  inputs.nixpkgs.url = "github:nixos/nixpkgs/release-24.11";
+  inputs.nixpkgs.url = "github:nixos/nixpkgs/release-23.11";
-  inputs.flake-utils.url = "github:numtide/flake-utils";
 
-  outputs = { self, nixpkgs, flake-utils }:
+  outputs = { self, nixpkgs }:
-  flake-utils.lib.eachSystem ["x86_64-linux" "aarch64-linux" "aarch64-darwin"] (system:
+    let
-      let
+      pkgs = nixpkgs.legacyPackages.x86_64-linux;
-        pkgs = import nixpkgs { inherit system; };
 
-        inherit (pkgs.haskell.lib) compose;
+      utoy = pkgs.haskellPackages.developPackage {
+        root = ./.;
+      };
+    in {
+      packages.x86_64-linux = rec {
+        docker =
+          pkgs.dockerTools.buildImage {
+            name = "git.pbrinkmeier.de/paul/utoy";
+            tag = utoy.version;
+            config.Cmd = [ "${pkgs.haskell.lib.justStaticExecutables utoy}/bin/utoy" ];
+          };
 
-        # Fix broken unicode-data-names by overriding the version of the unicode-data package.
+        default = utoy;
-        haskellPackagesOverrides = self: super: {
+      };
-          unicode-data = super.unicode-data_0_6_0;
-          unicode-data-names = pkgs.haskell.lib.markUnbroken super.unicode-data-names;
-        };
 
-        utoy = pkgs.lib.pipe
+      devShells.x86_64-linux.default =
-          # The basic package
+        (pkgs.haskellPackages.developPackage {
-          (pkgs.haskellPackages.developPackage {
+          root = ./.;
-            root = ./.;
+          modifier = drv:
-            overrides = haskellPackagesOverrides;
+            pkgs.haskell.lib.addBuildTools drv [
-          })
+              pkgs.cabal-install
-          # And some build configuration.
+              pkgs.haskellPackages.implicit-hie
-          # See https://nixos.org/manual/nixpkgs/unstable/#haskell-packaging-helpers.
+              pkgs.haskell-language-server
-          [
+            ];
-            # Remove warp which pulls GHC into the runtime deps for some reason.
+          cabal2nixOptions = "--benchmark";
-            (compose.overrideCabal (drv: {
+        }).env;
-              postInstall = ''
+  };
-                remove-references-to -t ${pkgs.haskellPackages.warp} $out/bin/utoy
-              '';
-            }))
-            # Return only the bin folder to curb image size
-            compose.justStaticExecutables
-          ];
-      in {
-        packages = rec {
-          docker =
-            pkgs.dockerTools.buildImage {
-              name = "git.pbrinkmeier.de/paul/utoy";
-              tag = utoy.version;
-              config.Cmd = [ "${utoy}/bin/utoy" ];
-            };
-
-          default = utoy;
-        };
-
-        devShells.default =
-          (pkgs.haskellPackages.developPackage {
-            root = ./.;
-            overrides = haskellPackagesOverrides;
-            modifier = drv:
-              pkgs.haskell.lib.addBuildTools drv [
-                pkgs.cabal-install
-                pkgs.haskellPackages.implicit-hie
-                pkgs.haskell-language-server
-              ];
-            cabal2nixOptions = "--benchmark";
-          }).env;
-        });
 }

src/UToy/Names.hs

@@ -1,4 +1,4 @@
-module UToy.Names (allNames, blockName, lowerNames, searchCaseInsensitive) where
+module UToy.Names (allNames, blockName, searchCaseInsensitive) where
 
 import Data.Char (ord)
 import Data.Maybe (maybeToList)
@@ -25,7 +25,7 @@ searchCaseInsensitive search = filter go [minBound..maxBound]
     go c = any matches $ Vector.unsafeIndex lowerNames (ord c - ord minBound)
     matches t = Text.toLower search `Text.isInfixOf` t
 
-lowerNames :: Vector (Vector Text)
+lowerNames :: Vector [Text]
 lowerNames = Vector.fromList $ map go [minBound..maxBound]
   where
-    go = Vector.fromList . map Text.toLower . allNames
+    go = map Text.toLower . allNames

utoy.cabal

@@ -1,7 +1,7 @@
 cabal-version: 1.12
 
 name:           utoy
-version:        0.6.3
+version:        0.6.2
 author:         Paul Brinkmeier
 maintainer:     hallo@pbrinkmeier.de
 copyright:      2023 Paul Brinkmeier
@@ -46,7 +46,6 @@ executable utoy
     , base >=4.7 && <5
     , blaze-html
     , bytestring
-    , deepseq
     , file-embed
     , http-media
     , servant-server