Lucu-0.5: examples/ImplantedSmall.hs

import Network.HTTP.Lucu
import SmallFile

main :: IO ()
main = let config    = defaultConfig { cnfServerPort = "9999" }
           resources = mkResTree [ ([], smallFile) ]
       in
         do putStrLn "Access http://localhost:9999/ with your browser."
            runHttpd config resources []