From 7fab8abd5dddc85bf4ea7211addc20f7b70af175 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Wed, 25 Jan 2017 09:47:21 -0800 Subject: [PATCH] ui: fix a GenericSourcePos-related warning --- hledger-ui/Hledger/UI/RegisterScreen.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/hledger-ui/Hledger/UI/RegisterScreen.hs b/hledger-ui/Hledger/UI/RegisterScreen.hs index 21eb720b5..303348179 100644 --- a/hledger-ui/Hledger/UI/RegisterScreen.hs +++ b/hledger-ui/Hledger/UI/RegisterScreen.hs @@ -281,7 +281,10 @@ rsHandle ui@UIState{ where (pos,f) = case listSelectedElement rsList of Nothing -> (endPos, journalFilePath j) - Just (_, RegisterScreenItem{rsItemTransaction=Transaction{tsourcepos=GenericSourcePos f l c}}) -> (Just (l, Just c),f) + Just (_, RegisterScreenItem{ + rsItemTransaction=Transaction{tsourcepos=GenericSourcePos f l c}}) -> (Just (l, Just c),f) + Just (_, RegisterScreenItem{ + rsItemTransaction=Transaction{tsourcepos=JournalSourcePos f (l,_)}}) -> (Just (l, Nothing),f) VtyEvent (EvKey (KChar 'H') []) -> continue $ regenerateScreens j d $ toggleHistorical ui VtyEvent (EvKey (KChar 'F') []) -> scrollTop >> (continue $ regenerateScreens j d $ toggleFlat ui) VtyEvent (EvKey (KChar 'Z') []) -> scrollTop >> (continue $ regenerateScreens j d $ toggleEmpty ui)