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

web: fix build error

Browse Source
This commit is contained in:
Simon Michael 2012-11-21 17:39:31 +00:00
parent ad88df99fa
commit 6cf883bcc3
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-web/Handler/Common.hs
View File

@ -16,7 +16,6 @@ import Text.Blaze (preEscapedString)
#endif #endif
import Text.Printf import Text.Printf
import Handler.Utils
import Hledger.Utils import Hledger.Utils
import Hledger.Data import Hledger.Data
import Hledger.Query import Hledger.Query
@ -24,6 +23,7 @@ import Hledger.Reports
import Hledger.Cli.Options import Hledger.Cli.Options
import Hledger.Web.Options import Hledger.Web.Options
import Handler.Utils
------------------------------------------------------------------------------- -------------------------------------------------------------------------------
-- Page components -- Page components
@ -517,7 +517,7 @@ numberTransactionsReportItems items = number 0 nulldate items
where where
number :: Int -> Day -> [TransactionsReportItem] -> [(Int,Bool,Bool,Bool,TransactionsReportItem)] number :: Int -> Day -> [TransactionsReportItem] -> [(Int,Bool,Bool,Bool,TransactionsReportItem)]
number _ _ [] = [] number _ _ [] = []
number n prevd (i@(Transaction{tdate=d},_,_,_,_,_):is) = (n+1,newday,newmonth,newyear,i):(number (n+1) d is) number n prevd (i@(Transaction{tdate=d},_,_,_,_,_):rest) = (n+1,newday,newmonth,newyear,i):(number (n+1) d rest)
where where
newday = d/=prevd newday = d/=prevd
newmonth = dm/=prevdm || dy/=prevdy newmonth = dm/=prevdm || dy/=prevdy

2
hledger-web/Handler/Post.hs
View File

@ -5,7 +5,7 @@ module Handler.Post where
import Import import Import
import Data.Either (lefts,rights) import Data.Either (lefts,rights)
import Data.List (intercalate) import Data.List (head, intercalate)
import Data.Text (unpack) import Data.Text (unpack)
import qualified Data.Text as T (null) import qualified Data.Text as T (null)
import Text.Hamlet (shamlet) import Text.Hamlet (shamlet)