Sulkta-OSS/agora
3
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

make fourmula happy

Browse source
This commit is contained in:
Hongrui Fang 2022-11-12 00:30:35 +08:00
parent 7056644bd7
commit 089589ed3c
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
agora-specs/Property/Governor.hs
View file

@ -1,3 +1,7 @@
{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
{-# HLINT ignore "Redundant bracket" #-}
{- | {- |
Module : Property.Governor Module : Property.Governor
Maintainer : seungheon.ooh@gmail.com Maintainer : seungheon.ooh@gmail.com
@ -105,7 +109,7 @@ instance Arbitrary GovernorDatumCases where
-} -}
governorDatumValidProperty :: Property governorDatumValidProperty :: Property
governorDatumValidProperty = governorDatumValidProperty =
haskEquiv @'OnPEq @'ByComplete haskEquiv @( 'OnPEq) @( 'ByComplete)
isValidModelImpl isValidModelImpl
(TestableTerm pisGovernorDatumValid) (TestableTerm pisGovernorDatumValid)
(genDatum :* Nil) (genDatum :* Nil)