From 3a7a5d6035799792be9ad8c39af9156be62c825c Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 22 Aug 2015 17:42:19 -0700
Subject: [PATCH] lib: 6-tuple accessors

---
 hledger-lib/Hledger/Utils.hs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/hledger-lib/Hledger/Utils.hs b/hledger-lib/Hledger/Utils.hs
index 88f39f74c..22925f95f 100644
--- a/hledger-lib/Hledger/Utils.hs
+++ b/hledger-lib/Hledger/Utils.hs
@@ -73,6 +73,13 @@ third5  (_,_,x,_,_) = x
 fourth5 (_,_,_,x,_) = x
 fifth5  (_,_,_,_,x) = x
 
+first6  (x,_,_,_,_,_) = x
+second6 (_,x,_,_,_,_) = x
+third6  (_,_,x,_,_,_) = x
+fourth6 (_,_,_,x,_,_) = x
+fifth6  (_,_,_,_,x,_) = x
+sixth6  (_,_,_,_,_,x) = x
+
 -- lists
 
 splitAtElement :: Eq a => a -> [a] -> [[a]]