]> Git — Sourcephile - haskell/literate-web.git/blob - tests/Examples/Ex05.hs
feat(compiler): add instance `Show OuputPath`
[haskell/literate-web.git] / tests / Examples / Ex05.hs
1 {-# LANGUAGE NoMonomorphismRestriction #-}
2 {-# OPTIONS_GHC -Wno-missing-signatures #-}
3
4 module Examples.Ex05 where
5
6 import Literate.Web
7
8 import Examples.Ex03 qualified as Ex03
9 import Examples.Ex04 qualified as Ex04
10
11 router =
12 "ex03"
13 </> Ex03.router
14 <+> "ex04"
15 </> Ex04.router
16
17 content =
18 Ex03.content
19 :!: Ex04.content
20
21 data Model = Model
22 { model03 :: Ex03.Model
23 , model04 :: Ex04.Model
24 }
25
26 model1 =
27 Model
28 { model03 = Ex03.model1
29 , model04 = Ex04.model1
30 }