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