From 94208e44d5ddddcc558fb14e3c67f35a73e75774 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 13 Jun 2011 21:16:10 +0000
Subject: [PATCH] fix that silly pattern warning

---
 hledger-lib/Hledger/Data/Matching.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/hledger-lib/Hledger/Data/Matching.hs b/hledger-lib/Hledger/Data/Matching.hs
index 75f796625..370ad8ee8 100644
--- a/hledger-lib/Hledger/Data/Matching.hs
+++ b/hledger-lib/Hledger/Data/Matching.hs
@@ -60,8 +60,7 @@ data QueryOpt = QueryOptInAcct AccountName  -- ^ show an account register focuss
 
 inAccount :: [QueryOpt] -> Maybe AccountName
 inAccount []     = Nothing
-inAccount (o:os) = case o of QueryOptInAcct a -> Just a; _ -> inAccount os
--- inAccount = msum . map f where f o = case o of (QueryOptInAcct a) -> Just a; _ -> Nothing
+inAccount (QueryOptInAcct a:_) = Just a
 
 -- | Convert a query expression containing zero or more space-separated
 -- terms to a matcher and zero or more query options. A query term is either: