git.iko.soy/rowtype-yoga/psfp
on 557f5b0 help sign in
rowtype-yoga/psfp/stories/ContainerStories.purs
27 lines 721 B history raw
1module ContainerStories where
3import Prelude hiding (add)
5import Container.Component (mkContainer)
6import Decorator.FullScreen (fullScreenDecorator)
7import Effect (Effect)
8import React.Basic.Hooks (component, element)
9import React.Basic.Hooks as React
10import Storybook.React (Storybook, add, addDecorator, storiesOf)
11import Theme.Styles (useTheme)
13stories ∷ Effect Storybook
14stories = do
15 storiesOf "Container" do
16 addDecorator fullScreenDecorator
17 add "Container" mkExample [ {} ]
18 where
19 mkExample = do
20 container <- mkContainer
21 component "ContainerExample" \{} -> React.do
22 theme <- useTheme
23 pure
24 $ element container
25 { theme
26 , children: []
27 }