don't expose implementation details of the widget module

pa-ba · Oct 28, 2024 · c43f7fa · c43f7fa
1 parent ed36cd0
commit c43f7fa
Show file tree

Hide file tree

Showing 3 changed files with 51 additions and 6 deletions.
diff --git a/WidgetRattus.cabal b/WidgetRattus.cabal
@@ -1,6 +1,6 @@
 cabal-version:       1.18
 name:                WidgetRattus
-version:             0.2
+version:             0.3
 category:            FRP
 synopsis:            An asynchronous modal FRP language
 description:
@@ -10,7 +10,7 @@ description:
 
 
 
-homepage:            https://github.com/pa-ba/AsyncRattus/
+homepage:            https://github.com/pa-ba/AsyncRattus/tree/WidgetRattus
 bug-reports:         https://github.com/pa-ba/AsyncRattus/issues
 License:             BSD3
 License-file:        LICENSE
@@ -40,7 +40,6 @@ library
                        WidgetRattus.Channels
                        WidgetRattus.Plugin.Annotation
                        WidgetRattus.Widgets
-                       WidgetRattus.Widgets.Types
 
   other-modules:       WidgetRattus.Plugin.ScopeCheck
                        WidgetRattus.Plugin.SingleTick
@@ -51,6 +50,7 @@ library
                        WidgetRattus.Plugin.StableSolver
                        WidgetRattus.Plugin.Transform
                        WidgetRattus.Plugin.PrimExpr
+                       WidgetRattus.Widgets.InternalTypes
                        WidgetRattus.Derive
   build-depends:       base >=4.16 && <5,
                        containers >= 0.6.5 && < 0.8,

diff --git a/src/WidgetRattus/Widgets.hs b/src/WidgetRattus/Widgets.hs
@@ -9,10 +9,55 @@
 
 
 module WidgetRattus.Widgets 
-(module WidgetRattus.Widgets.Types, module WidgetRattus.Widgets ) where
+  ( Displayable (..)
+  , IsWidget (..)
+  , Widgets (..)
+  , Widget
+  , HStack
+  , VStack
+  , TextDropdown
+  , tddCurr
+  , tddEvent
+  , tddList
+  , Popup
+  , popCurr
+  , popEvent
+  , popChild
+  , Slider
+  , sldCurr
+  , sldEvent
+  , sldMin
+  , sldMax
+  , Button
+  , btnContent
+  , btnClick
+  , Label
+  , labText
+  , TextField
+  , tfContent
+  , tfInput
+  , mkButton
+  , mkTextField
+  , addInputSigTF
+  , mkLabel
+  , mkHStack
+  , mkConstHStack
+  , mkVStack
+  , mkConstVStack
+  , mkTextDropdown
+  , mkPopup
+  , mkSlider
+  , mkProgressBar
+  , btnOnClick
+  , btnOnClickSig
+  , setInputSigTF
+  , textFieldOnInput
+  , textFieldOnInputSig
+  , runApplication
+      ) where
 
 import WidgetRattus
-import WidgetRattus.Widgets.Types
+import WidgetRattus.Widgets.InternalTypes
 import WidgetRattus.Signal
 import Data.Text
 import WidgetRattus.InternalPrimitives

diff --git a/src/WidgetRattus/Widgets/Types.hs → src/WidgetRattus/Widgets/InternalTypes.hs b/src/WidgetRattus/Widgets/Types.hs → src/WidgetRattus/Widgets/InternalTypes.hs
@@ -4,7 +4,7 @@
 {-# LANGUAGE GADTs #-}
 
 
-module WidgetRattus.Widgets.Types where
+module WidgetRattus.Widgets.InternalTypes where
 
 import WidgetRattus
 import WidgetRattus.InternalPrimitives