diff --git a/src/Monomer/Main/Types.hs b/src/Monomer/Main/Types.hs index c35ac9de..ca9d0049 100644 --- a/src/Monomer/Main/Types.hs +++ b/src/Monomer/Main/Types.hs @@ -40,7 +40,7 @@ import Monomer.Core.ThemeTypes import Monomer.Core.WidgetTypes import Monomer.Event.Types import Monomer.Graphics.Types -import Monomer.Widgets.Composite +import Monomer.Widgets.Composite (EventResponse, UIBuilder) -- | Type of response an App event handler can return, with __s__ being the -- | model and __e__ the user's event type. diff --git a/src/Monomer/Widgets/Util/Drawing.hs b/src/Monomer/Widgets/Util/Drawing.hs index 1d4991fe..a2db936c 100644 --- a/src/Monomer/Widgets/Util/Drawing.hs +++ b/src/Monomer/Widgets/Util/Drawing.hs @@ -39,7 +39,6 @@ import Data.Maybe import Data.Text (Text) import Monomer.Core -import Monomer.Core.StyleUtil import Monomer.Graphics.Types import qualified Monomer.Core.Lens as L diff --git a/src/Monomer/Widgets/Util/Focus.hs b/src/Monomer/Widgets/Util/Focus.hs index df8ffbde..1fe333c5 100644 --- a/src/Monomer/Widgets/Util/Focus.hs +++ b/src/Monomer/Widgets/Util/Focus.hs @@ -30,9 +30,7 @@ import Data.Typeable (Typeable) import qualified Data.Sequence as Seq import Monomer.Core -import Monomer.Event.Types import Monomer.Helper -import Monomer.Widgets.Util.Hover import Monomer.Widgets.Util.Widget import qualified Monomer.Core.Lens as L diff --git a/src/Monomer/Widgets/Util/Hover.hs b/src/Monomer/Widgets/Util/Hover.hs index c715d1a3..139fbced 100644 --- a/src/Monomer/Widgets/Util/Hover.hs +++ b/src/Monomer/Widgets/Util/Hover.hs @@ -28,9 +28,6 @@ import Data.Maybe import qualified Data.Sequence as Seq import Monomer.Core -import Monomer.Event.Types -import Monomer.Event.Util -import Monomer.Graphics.Types import Monomer.Helper import qualified Monomer.Core.Lens as L diff --git a/src/Monomer/Widgets/Util/Keyboard.hs b/src/Monomer/Widgets/Util/Keyboard.hs index a01006eb..566ee087 100644 --- a/src/Monomer/Widgets/Util/Keyboard.hs +++ b/src/Monomer/Widgets/Util/Keyboard.hs @@ -22,7 +22,6 @@ import Data.Maybe (fromMaybe) import qualified Data.Map as M import Monomer.Core -import Monomer.Event.Core import Monomer.Event.Keyboard import Monomer.Event.Types import Monomer.Event.Util diff --git a/src/Monomer/Widgets/Util/Lens.hs b/src/Monomer/Widgets/Util/Lens.hs index 084f8b07..7be9f6c0 100644 --- a/src/Monomer/Widgets/Util/Lens.hs +++ b/src/Monomer/Widgets/Util/Lens.hs @@ -16,7 +16,6 @@ module Monomer.Widgets.Util.Lens where import Control.Lens.TH (abbreviatedFields, makeLensesWith) -import Monomer.Core.Lens import Monomer.Widgets.Util.Types makeLensesWith abbreviatedFields ''ActiveStyleCfg diff --git a/src/Monomer/Widgets/Util/Style.hs b/src/Monomer/Widgets/Util/Style.hs index 54a0a568..8c4eb7c1 100644 --- a/src/Monomer/Widgets/Util/Style.hs +++ b/src/Monomer/Widgets/Util/Style.hs @@ -36,7 +36,6 @@ import qualified Data.Sequence as Seq import Monomer.Core import Monomer.Event -import Monomer.Graphics import Monomer.Helper import Monomer.Widgets.Util.Focus import Monomer.Widgets.Util.Hover diff --git a/src/Monomer/Widgets/Util/Widget.hs b/src/Monomer/Widgets/Util/Widget.hs index 37d1e71f..abeb734a 100644 --- a/src/Monomer/Widgets/Util/Widget.hs +++ b/src/Monomer/Widgets/Util/Widget.hs @@ -51,9 +51,6 @@ import qualified Data.Sequence as Seq import Monomer.Common import Monomer.Core.WidgetTypes -import Monomer.Event.Types -import Monomer.Event.Util -import Monomer.Graphics.Types import qualified Monomer.Core.Lens as L