slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix cabal dependencies for the web command

Browse Source
This commit is contained in:
Simon Michael 2009-02-13 20:45:32 +00:00
parent cf0243201f
commit 2d42279cd3
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
HappsCommand.hs
View File

@ -10,10 +10,10 @@ import Data.Time.Clock
import Data.Time.Format import Data.Time.Format
import System.Locale import System.Locale
import Control.Concurrent import Control.Concurrent
import qualified Text.StringTemplate as T
import Codec.Compression.GZip (compress)
import qualified Data.ByteString.Lazy.Char8 as B import qualified Data.ByteString.Lazy.Char8 as B
import Data.ByteString.UTF8 (fromString, toString) -- import qualified Text.StringTemplate as T
-- import Codec.Compression.GZip (compress)
-- import Data.ByteString.UTF8 (fromString)
import HAppS.Server import HAppS.Server
import System.Cmd (system) import System.Cmd (system)
import System.Info (os) import System.Info (os)
@ -124,9 +124,9 @@ setContentType = setHeader "Content-Type"
setFilename :: String -> Response -> Response setFilename :: String -> Response -> Response
setFilename = setHeader "Content-Disposition" . \fname -> "attachment: filename=\"" ++ fname ++ "\"" setFilename = setHeader "Content-Disposition" . \fname -> "attachment: filename=\"" ++ fname ++ "\""
gzipBinary :: Response -> Response -- gzipBinary :: Response -> Response
gzipBinary r@(Response {rsBody = b}) = setHeader "Content-Encoding" "gzip" $ r {rsBody = compress b} -- gzipBinary r@(Response {rsBody = b}) = setHeader "Content-Encoding" "gzip" $ r {rsBody = compress b}
acceptsZip :: Request -> Bool -- acceptsZip :: Request -> Bool
acceptsZip req = isJust $ M.lookup (fromString "accept-encoding") (rqHeaders req) -- acceptsZip req = isJust $ M.lookup (fromString "accept-encoding") (rqHeaders req)

2
hledger.cabal
View File

@ -33,7 +33,7 @@ Executable hledger
Build-Depends: base, containers, haskell98, directory, parsec, Build-Depends: base, containers, haskell98, directory, parsec,
regex-compat, regexpr>=0.5.1, old-locale, time, regex-compat, regexpr>=0.5.1, old-locale, time,
HUnit, mtl, bytestring, filepath HUnit, mtl, bytestring, filepath, process
Other-Modules: BalanceCommand Other-Modules: BalanceCommand
Options Options