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

3/4/5-tuple accessors

Browse Source
This commit is contained in:
Simon Michael 2014-03-26 11:15:04 -07:00
parent ce888a62d5
commit c5a839b309
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
hledger-lib/Hledger/Utils.hs
View File

@ -215,6 +215,23 @@ fitto w h s = intercalate "\n" $ take h $ rows ++ repeat blankline
fit w = take w . (++ repeat ' ') fit w = take w . (++ repeat ' ')
blankline = replicate w ' ' blankline = replicate w ' '
-- tuples
first3 (x,_,_) = x
second3 (_,x,_) = x
third3 (_,_,x) = x
first4 (x,_,_,_) = x
second4 (_,x,_,_) = x
third4 (_,_,x,_) = x
fourth4 (_,_,_,x) = x
first5 (x,_,_,_,_) = x
second5 (_,x,_,_,_) = x
third5 (_,_,x,_,_) = x
fourth5 (_,_,_,x,_) = x
fifth5 (_,_,_,_,x) = x
-- math -- math
difforzero :: (Num a, Ord a) => a -> a -> a difforzero :: (Num a, Ord a) => a -> a -> a