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.BareB MyFlagStruct
instance Barbies.TraversableB (MyFlagStruct Barbies.Covered)
instance Semigroup (MyFlagStruct Barbies.Covered Option) where
instance Semigroup (MyFlagStruct Barbies.Covered Maybe) where
(<>) = gmappend
_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.Proxy ( Proxy(..) )
import Data.Sequence ( Seq )
import Data.Semigroup ( Semigroup(..), Option )
import Data.Semigroup ( Semigroup(..) )
import Data.Map ( Map )
import Data.Set ( Set )