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

lib: 6-tuple accessors

Browse Source
This commit is contained in:
Simon Michael 2015-08-22 17:42:19 -07:00
parent 3bdd8916b9
commit 3a7a5d6035
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -73,6 +73,13 @@ third5 (_,_,x,_,_) = x
fourth5 (_,_,_,x,_) = x fourth5 (_,_,_,x,_) = x
fifth5 (_,_,_,_,x) = x fifth5 (_,_,_,_,x) = x
first6 (x,_,_,_,_,_) = x
second6 (_,x,_,_,_,_) = x
third6 (_,_,x,_,_,_) = x
fourth6 (_,_,_,x,_,_) = x
fifth6 (_,_,_,_,x,_) = x
sixth6 (_,_,_,_,_,x) = x
-- lists -- lists
splitAtElement :: Eq a => a -> [a] -> [[a]] splitAtElement :: Eq a => a -> [a] -> [[a]]