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     }