Minor documentation updates

src/Monomer/Core/Combinators.hs

@@ -23,7 +23,6 @@ module Monomer.Core.Combinators where
 import Control.Lens (ALens')
 import Data.Text (Text)
 
-import Monomer.Common
 import Monomer.Core.StyleTypes
 import Monomer.Core.WidgetTypes
 import Monomer.Event.Types

src/Monomer/Widgets/Singles/Button.hs

@@ -50,15 +50,15 @@ Configuration options for button:
 - 'ellipsis': if ellipsis should be used for overflown text.
 - 'multiline': if text may be split in multiple lines.
 - 'maxLines': maximum number of text lines to show.
+- 'resizeFactor': flexibility to have more or less spaced assigned.
+- 'resizeFactorW': flexibility to have more or less horizontal spaced assigned.
+- 'resizeFactorH': flexibility to have more or less vertical spaced assigned.
 - 'onFocus': event to raise when focus is received.
 - 'onFocusReq': 'WidgetRequest' to generate when focus is received.
 - 'onBlur': event to raise when focus is lost.
 - 'onBlurReq': 'WidgetRequest' to generate when focus is lost.
 - 'onClick': event to raise when button is clicked.
 - 'onClickReq': 'WidgetRequest' to generate when button is clicked.
-- 'resizeFactor': flexibility to have more or less spaced assigned.
-- 'resizeFactorW': flexibility to have more or less horizontal spaced assigned.
-- 'resizeFactorH': flexibility to have more or less vertical spaced assigned.
 -}
 data ButtonCfg s e = ButtonCfg {
   _btnButtonType :: Maybe ButtonType,

src/Monomer/Widgets/Singles/ExternalLink.hs

@@ -46,15 +46,15 @@ Configuration options for externalLink:
 - 'ellipsis': if ellipsis should be used for overflown text.
 - 'multiline': if text may be split in multiple lines.
 - 'maxLines': maximum number of text lines to show.
+- 'resizeFactor': flexibility to have more or less spaced assigned.
+- 'resizeFactorW': flexibility to have more or less horizontal spaced assigned.
+- 'resizeFactorH': flexibility to have more or less vertical spaced assigned.
 - 'onFocus': event to raise when focus is received.
 - 'onFocusReq': 'WidgetRequest' to generate when focus is received.
 - 'onBlur': event to raise when focus is lost.
 - 'onBlurReq': 'WidgetRequest' to generate when focus is lost.
 - 'onClick': event to raise when button is clicked.
 - 'onClickReq': 'WidgetRequest' to generate when button is clicked.
-- 'resizeFactor': flexibility to have more or less spaced assigned.
-- 'resizeFactorW': flexibility to have more or less horizontal spaced assigned.
-- 'resizeFactorH': flexibility to have more or less vertical spaced assigned.
 -}
 data ExternalLinkCfg s e = ExternalLinkCfg {
   _elcLabelCfg :: LabelCfg s e,

src/Monomer/Widgets/Singles/Label.hs

@@ -133,8 +133,8 @@ instance CmbResizeFactorDim (LabelCfg s e) where
 labelCurrentStyle
   :: (WidgetEnv s e -> WidgetNode s e -> StyleState)
   -> LabelCfg s e
-labelCurrentStyle style = def {
-  _lscCurrentStyle = Just style
+labelCurrentStyle styleFn = def {
+  _lscCurrentStyle = Just styleFn
 }
 
 data LabelState = LabelState {