git.iko.soy/rowtype-yoga/psfp
on master help sign in
Up
491e24eMark Eibes
blog/src/stories/PSLayout.purs+7−1
compare with master
unifiedsplit
@@ -5,12 +5,13 @@ import Data.Tuple.Nested ((/\))
5import Effect (Effect)
5import Effect (Effect)
6import Effect.Aff (Aff)
6import Effect.Aff (Aff)
7import Effect.Class (liftEffect)
7import Effect.Class (liftEffect)
8+import Landing (mkLandingPage)
8import MDX (MDX, renderWithReact)
9import MDX (MDX, renderWithReact)
9import MDXProvider (MdxProviderProps, mkLiveMdxProviderComponent)
10import MDXProvider (MdxProviderProps, mkLiveMdxProviderComponent)
10import Milkis as M
11import Milkis as M
11import Milkis.Impl.Window (windowFetch)
12import Milkis.Impl.Window (windowFetch)
12import PSLayout (mkLayout)
13import PSLayout (mkLayout)
13−import React.Basic (JSX, ReactComponent, fragment)
14+import React.Basic (JSX, ReactComponent, element, fragment)
14import React.Basic.Hooks (reactChildrenFromArray, reactComponent, reactComponentWithChildren)
15import React.Basic.Hooks (reactChildrenFromArray, reactComponent, reactComponentWithChildren)
15import React.Basic.Hooks as React
16import React.Basic.Hooks as React
16import React.Basic.Hooks.Aff (useAff)
17import React.Basic.Hooks.Aff (useAff)
@@ -23,6 +24,11 @@ default =
23 { title: "Page/GenericMDX"
24 { title: "Page/GenericMDX"
24 }
25 }
25
26
27+landingPage ∷ Effect JSX
28+landingPage = do
29+ lp <- mkLandingPage
30+ pure (element lp {})
31+
26randomPage ∷ Effect JSX
32randomPage ∷ Effect JSX
27randomPage = do
33randomPage = do
28 mdxProvider <- mkLiveMdxProviderComponent windowFetch
34 mdxProvider <- mkLiveMdxProviderComponent windowFetch