From dbc17e8c4b28e43f6609c571fccdcf7b3819aec9 Mon Sep 17 00:00:00 2001 From: Aspen Smith Date: Thu, 3 Aug 2023 11:32:04 -0400 Subject: fix(grfn/xanthous): Fix build Bunch of miscellaneous stuff due to breakages in dependencies Change-Id: I807cfa875148e7e5b691f2be0b58dc0a08f3c3ad Reviewed-on: https://cl.tvl.fyi/c/depot/+/9003 Autosubmit: grfn Reviewed-by: grfn Tested-by: BuildkiteCI --- users/grfn/xanthous/src/Xanthous/Orphans.hs | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'users/grfn/xanthous/src/Xanthous/Orphans.hs') diff --git a/users/grfn/xanthous/src/Xanthous/Orphans.hs b/users/grfn/xanthous/src/Xanthous/Orphans.hs index b00c803cfe7a..66004163f6ea 100644 --- a/users/grfn/xanthous/src/Xanthous/Orphans.hs +++ b/users/grfn/xanthous/src/Xanthous/Orphans.hs @@ -15,6 +15,7 @@ import Data.Aeson hiding (Key) import qualified Data.Aeson.KeyMap as KM import Data.Aeson.Types (typeMismatch) import Data.List.NonEmpty (NonEmpty(..)) +import qualified Graphics.Vty.Input import Graphics.Vty.Attributes import Brick.Widgets.Edit import Data.Text.Zipper.Generic (GenericTextZipper) @@ -22,7 +23,7 @@ import Brick.Widgets.Core (getName) import System.Random.Internal (StdGen (..)) import System.Random.SplitMix (SMGen ()) import Test.QuickCheck -import Test.QuickCheck.Arbitrary.Generic (Arg ()) +-- import Test.QuickCheck.Arbitrary.Generic (Arg ()) import "quickcheck-instances" Test.QuickCheck.Instances () import Text.Megaparsec (errorBundlePretty) import Text.Megaparsec.Pos @@ -373,7 +374,7 @@ deriving newtype instance (Arbitrary s, CoArbitrary (m (a, s))) -------------------------------------------------------------------------------- -deriving via (GenericArbitrary (V2 a)) instance (Arg (V2 a) a, Arbitrary a) => Arbitrary (V2 a) +deriving via (GenericArbitrary (V2 a)) instance (Arbitrary a) => Arbitrary (V2 a) instance CoArbitrary a => CoArbitrary (V2 a) instance Function a => Function (V2 a) @@ -487,3 +488,8 @@ instance forall a. (FromJSON a, Ord a) => FromJSON (Interval a) where pure $ val <=..<= val checkLength arr = when (length arr /= 2) $ fail "Expected array of length 2" + +-------------------------------------------------------------------------------- + +deriving anyclass instance NFData Graphics.Vty.Input.Key +deriving anyclass instance NFData Graphics.Vty.Input.Modifier -- cgit 1.4.1