X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FStaticFile.hs;h=5289f5fdb8cd374c88a594e30ce0c6542e633d5a;hp=9175ce9289c816cdb4f8375195b9adf53efb2214;hb=0ff03469c29b791f2c609a659bbf59be97e306f2;hpb=3fe5ca3bca04e0124a5f2440e893dc5375e0bb51 diff --git a/Network/HTTP/Lucu/StaticFile.hs b/Network/HTTP/Lucu/StaticFile.hs index 9175ce9..5289f5f 100644 --- a/Network/HTTP/Lucu/StaticFile.hs +++ b/Network/HTTP/Lucu/StaticFile.hs @@ -13,7 +13,6 @@ module Network.HTTP.Lucu.StaticFile , generateETagFromFile ) where - import Control.Monad import Control.Monad.Trans import qualified Data.ByteString.Lazy.Char8 as B @@ -30,10 +29,8 @@ import Network.HTTP.Lucu.Utils import System.FilePath.Posix import System.Posix.Files - --- | @'staticFile' fpath@ is a --- 'Network.HTTP.Lucu.Resource.Tree.ResourceDef' which serves the file --- at @fpath@ on the filesystem. +-- | @'staticFile' fpath@ is a 'ResourceDef' which serves the file at +-- @fpath@ on the filesystem. staticFile :: FilePath -> ResourceDef staticFile path = ResourceDef {