19 lines
332 B
Idris
19 lines
332 B
Idris
module HelloWorld
|
|
|
|
import SSG.HTML
|
|
|
|
import Structures.Dependent.DList
|
|
|
|
helloWorld : Html "html"
|
|
helloWorld =
|
|
Normal "html" ["lang" =$ "en"] [
|
|
Normal "head" [] [
|
|
RawText "title" [] "Example"
|
|
],
|
|
Normal "body" [] [
|
|
Normal "p" [] [Text "Hello World!"]
|
|
]
|
|
]
|
|
|
|
main : IO ()
|
|
main = putStr $ render helloWorld
|