diff --git a/src/UI/Butcher/Applicative.hs b/src/UI/Butcher/Applicative.hs
index 45cfa7f..657fb68 100644
--- a/src/UI/Butcher/Applicative.hs
+++ b/src/UI/Butcher/Applicative.hs
@@ -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 ()
diff --git a/srcinc/prelude.inc b/srcinc/prelude.inc
index 9b98510..8bc51b7 100644
--- a/srcinc/prelude.inc
+++ b/srcinc/prelude.inc
@@ -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 )