From 8a343002f6e013fef05bc572371a3685f96e16d8 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 28 Aug 2015 11:39:23 -0700
Subject: [PATCH] ui: fix vector-related breakage with GHC < 7.10

---
 hledger-ui/Hledger/UI/AccountsScreen.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hledger-ui/Hledger/UI/AccountsScreen.hs b/hledger-ui/Hledger/UI/AccountsScreen.hs
index f01ed4c24..6972781b8 100644
--- a/hledger-ui/Hledger/UI/AccountsScreen.hs
+++ b/hledger-ui/Hledger/UI/AccountsScreen.hs
@@ -119,11 +119,11 @@ drawAccountsScreen st@AppState{aopts=uopts, ajournal=j, aScreen=AccountsScreen{a
       cur = str (case is^.listSelectedL of
                   Nothing -> "-"
                   Just i -> show (i + 1))
-      total = str $ show $ length $ is^.listElementsL
+      total = str $ show $ V.length $ is^.listElementsL
 
       items = listElements is
       flat = flat_ $ reportopts_ $ cliopts_ $ aopts st
-      acctcolwidth = maximum $
+      acctcolwidth = V.maximum $
                       V.map
                        (\((full,short,indent),_) ->
                          if flat then length full else length short + indent*2)