hexagoxel
/
butcher
1
0
Fork 0
Code Issues 2 Pull Requests Packages Projects Releases Wiki Activity

Stop using Semigroups.Option

devtest
Lennart Spitzner 2022-12-12 14:26:42 +01:00
parent 751ac69eaf
commit ce3875d1fd
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/UI/Butcher/Applicative.hs
View File

@ -157,7 +157,7 @@ data MyFlagStruct (c :: Type) (f :: Type -> Type) = MyFlagStruct
instance Barbies.FunctorB (MyFlagStruct Barbies.Covered) instance Barbies.FunctorB (MyFlagStruct Barbies.Covered)
instance Barbies.BareB MyFlagStruct instance Barbies.BareB MyFlagStruct
instance Barbies.TraversableB (MyFlagStruct Barbies.Covered) instance Barbies.TraversableB (MyFlagStruct Barbies.Covered)
instance Semigroup (MyFlagStruct Barbies.Covered Option) where instance Semigroup (MyFlagStruct Barbies.Covered Maybe) where
(<>) = gmappend (<>) = gmappend
_test :: IO () _test :: IO ()

2
srcinc/prelude.inc
View File

@ -116,7 +116,7 @@ import Data.Monoid ( Endo(..), All(..), Any(..), Sum(..), Product(..), Alt(..),
import Data.Void ( Void ) import Data.Void ( Void )
-- import Data.Proxy ( Proxy(..) ) -- import Data.Proxy ( Proxy(..) )
import Data.Sequence ( Seq ) import Data.Sequence ( Seq )
import Data.Semigroup ( Semigroup(..), Option ) import Data.Semigroup ( Semigroup(..) )
import Data.Map ( Map ) import Data.Map ( Map )
import Data.Set ( Set ) import Data.Set ( Set )