better instance for Styleable, Attributable to handle outside cases

Author: seanhess

src/Web/Atomic/CSS.hs

@@ -45,6 +45,7 @@ module Web.Atomic.CSS
   , right
   , left
   , overflow
+  , Overflow (..)
 
     -- ** Flexbox
     -- $flexbox

src/Web/Atomic/Types/Attributable.hs

@@ -33,7 +33,7 @@ class Attributable h where
 infixl 5 @
 
 
-instance {-# OVERLAPPABLE #-} (Attributable a, Attributable b) => Attributable (a -> b) where
+instance {-# OVERLAPPABLE #-} (Attributable b) => Attributable (a -> b) where
   (@) :: (a -> b) -> (Attributes (a -> b) -> Attributes (a -> b)) -> (a -> b)
   hh @ f = \content ->
     hh content @ \(Attributes m) ->

src/Web/Atomic/Types/Styleable.hs

@@ -25,7 +25,7 @@ class Styleable h where
 infixl 5 ~
 
 
-instance {-# OVERLAPPABLE #-} (Styleable a, Styleable b) => Styleable (a -> b) where
+instance {-# OVERLAPPABLE #-} (Styleable b) => Styleable (a -> b) where
   (~) :: (a -> b) -> (CSS (a -> b) -> CSS (a -> b)) -> (a -> b)
   hh ~ f = \content ->
     hh content ~ \(CSS m) ->