Commit da1e4a76 authored by Michael Hanus 's avatar Michael Hanus
Browse files

Adapted to new version of html package

parent 528c9172
Pipeline #372 failed with stages
......@@ -16,7 +16,7 @@
module Persons where
import HTML
import HTML.Base
import WUIjs
import Time(validDate)
......@@ -56,4 +56,4 @@ persons = [("Bob","Carter","bob@carter.com",(3,10,1965))
--
-- Then compile and install this script into your home www directory:
--
-- > cpm exec curry makecgi -wuijs -o ~/public_html/persons.cgi Persons
-- > curry makecgi -cpm -wuijs -o ~/public_html/persons.cgi Persons
......@@ -9,7 +9,7 @@
import AllSolutions (getOneSolution)
import CLPFD
import HTML
import HTML.Base
import List (transpose)
import WUI
......@@ -73,4 +73,4 @@ formExample =
, [0,0,1,0,0,6,0,0,9] ]
-- Generate cgi program with:
-- cpm exec curry makecgi -m formExample -o ~/public_html/sudoku.cgi sudoku
-- curry makecgi -cpm -m formExample -o ~/public_html/sudoku.cgi sudoku
{
"name": "wui",
"version": "1.0.0",
"version": "1.1.0",
"author": "Michael Hanus <mh@informatik.uni-kiel.de>",
"synopsis": "Libraries to support the type-oriented construction of web user interfaces",
"category": [ "User Interface", "Web" ],
"dependencies": {
"html" : ">= 1.1.0",
"javascript": ">= 1.0.0"
},
"exportedModules": [ "WUI", "WUIjs" ],
......
......@@ -39,7 +39,7 @@ module WUI(--WuiState,cgiRef2state,state2cgiRef,value2state,state2value,
import Char(isDigit,isSpace)
import FunctionInversion (invf1)
import HTML
import HTML.Base
import List(elemIndex)
import Maybe
import Read(readNat)
......
......@@ -43,7 +43,7 @@ module WUIjs(--WuiState,cgiRef2state,state2cgiRef,value2state,state2value,
import Char(isDigit,isSpace)
import FunctionInversion (invf1)
import HTML
import HTML.Base
import List(elemIndex,intersperse)
import Maybe
import Read(readNat)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment