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

web: fix this dev build warning without breaking prod

Browse Source
This commit is contained in:
Simon Michael 2012-11-23 20:49:53 +00:00
parent 6cf883bcc3
commit 0f664057d7
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,7 +5,8 @@ module Handler.Post where
import Import import Import
import Data.Either (lefts,rights) import Data.Either (lefts,rights)
import Data.List (head, intercalate) import Data.List (intercalate)
import qualified Data.List as L (head) -- qualified keeps dev & prod builds warning-free
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)
@ -61,7 +62,7 @@ handleAdd = do
[amt1,amt2] = rights amtEs [amt1,amt2] = rights amtEs
-- if no errors so far, generate a transaction and balance it or get the error. -- if no errors so far, generate a transaction and balance it or get the error.
tE | not $ null errs = Left errs tE | not $ null errs = Left errs
| otherwise = either (\e -> Left ["unbalanced postings: " ++ (head $ lines e)]) Right | otherwise = either (\e -> Left ["unbalanced postings: " ++ (L.head $ lines e)]) Right
(balanceTransaction Nothing $ nulltransaction { -- imprecise balancing (balanceTransaction Nothing $ nulltransaction { -- imprecise balancing
tdate=parsedate date tdate=parsedate date
,tdescription=desc ,tdescription=desc