simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-10 05:39:31 +03:00
Code Issues 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
import Text.Printf
import Handler.Utils
import Hledger.Utils
import Hledger.Data
import Hledger.Query
@ -24,6 +23,7 @@ import Hledger.Reports
import Hledger.Cli.Options
import Hledger.Web.Options
import Handler.Utils
-------------------------------------------------------------------------------
-- Page components
@ -517,7 +517,7 @@ numberTransactionsReportItems items = number 0 nulldate items
where
number :: Int -> Day -> [TransactionsReportItem] -> [(Int,Bool,Bool,Bool,TransactionsReportItem)]
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
newday = d/=prevd
newmonth = dm/=prevdm || dy/=prevdy

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

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