module IntroAssignment where

import Question
import Intro
import Calculator
import Commands
import Functions
import MoreProperties
import TypeClasses
import MoreFunctions
import Pythagoras

main = run $ askQ theTitle $ wrapper introAssignment

theTitle = "Your first (?) encounter with Haskell"

introAssignment = do
  h1 $ text theTitle

  intro

  calculator

  commands

  functions

  moreProperties

  typeClasses

  moreFunctions

  -- pythagoras

  h2 $ text "Already done?"

  p <#>Have you already finished? You can try out the <a href=<%
       nextUrl %>>next assignment</a>. You may want to wait until
       after the next lecture, though.</#>

  hr empty

  credits

nextUrl = "cases-and-recursion.cgi"

credits = do

  address
    <#>This page is written by <a
       href="http://www.cs.chalmers.se/~nad/">Nils Anders
       Danielsson</a>. A large part of the material is taken from an
       earlier version of the page, (probably) by <a
       href="http://www.cs.chalmers.se/~sydow/">Björn von Sydow</a>.
       Furthermore Andreas Farre came up with some exercises, and
       Ann Lillieström translated large parts of the text into
       English.</#>