Like python’s SimpleHTTPServer, but using the fastest webserver on this planet instead.

warpspeed.hs

#!/usr/bin/env nix-shell
#!nix-shell -i runhaskell -p "haskellPackages.ghcWithPackages (hps: with hps; [wai-middleware-static warp])"
{-# LANGUAGE OverloadedStrings #-}
module Main where

import Network.Wai
import Network.Wai.Middleware.Static
import Network.Wai.Handler.Warp
import Network.HTTP.Types.Status

main =
  runEnv 8000 $ static $ \req resp -> resp $ responseLBS notFound404 [] ""