Skip to content

Commit de3209a

Browse files
Vekhirsimonmichael
authored andcommitted
fix: Hide ambiguous instance for (!?)
base 4.19.0.0 introduces Data.List.!? which clashes with Data.Vector.!?, the latter of which is needed for vector operations.
1 parent 32328e3 commit de3209a

File tree

2 files changed

+9
-0
lines changed

2 files changed

+9
-0
lines changed

hledger-ui/Hledger/UI/AccountsScreen.hs

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
-- The accounts screen, showing accounts and balances like the CLI balance command.
22

3+
{-# LANGUAGE CPP #-}
34
{-# LANGUAGE OverloadedStrings #-}
45
{-# LANGUAGE RecordWildCards #-}
56
{-# LANGUAGE TupleSections #-}
@@ -23,7 +24,11 @@ import Brick.Widgets.List
2324
import Brick.Widgets.Edit
2425
import Control.Monad
2526
import Control.Monad.IO.Class (liftIO)
27+
#if MIN_VERSION_base(4,19,0)
28+
import Data.List hiding (reverse, (!?))
29+
#else
2630
import Data.List hiding (reverse)
31+
#endif
2732
import Data.Maybe
2833
import qualified Data.Text as T
2934
import Data.Time.Calendar (Day)

hledger-ui/Hledger/UI/RegisterScreen.hs

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -19,7 +19,11 @@ where
1919
import Control.Monad
2020
import Control.Monad.IO.Class (liftIO)
2121
import Data.Bifunctor (bimap, Bifunctor (second))
22+
#if MIN_VERSION_base(4,19,0)
23+
import Data.List hiding ((!?))
24+
#else
2225
import Data.List
26+
#endif
2327
import Data.Maybe
2428
import qualified Data.Text as T
2529
import qualified Data.Vector as V

0 commit comments

Comments
 (0)