Network/HTTP/Lucu/StaticFile.hs

   1 module Network.HTTP.Lucu.StaticFile
   2     (
   3     )
   4     where
   5
   6
   7 staticFile :: FilePath -> ResourceDef
   8 staticFile path
   9     = ResourceDef {
  10         resUsesNativeThread = False
  11       , resIsGreedy         = False
  12       , resGet
  13           = Just $ do