made signature of universalDB more consistent with universalRefEditor

libraries/htmlGEC/Examples/Conf Management System/stateHandlingIData.icl

@@ -187,12 +187,12 @@ discussPapersPage account accounts hst
 # selectedpaper		= allpapernrs!!selected
 # mbpaperrefinfo	= getPaperInfo selectedpaper accounts
 # (RefDiscussion (Ref2 name)) = (fromJust mbpaperrefinfo).discussion
-# (disclist,hst)	= universalDB (Init,Discussion []) name (\_ _ -> Ok) hst
+# (disclist,hst)	= universalDB (Init,Discussion [],name) (\_ _ -> Ok) hst
 # (time,date,hst)	= getTimeAndDate hst
 # (newsubmit,newdiscf,hst)	
 					= mkSubStateForm (if pdfun.changed Set Init, nFormId "sh_dpp_adddisc" (TS 80 "")) disclist
 						(\s -> addItemTextInput (account.login.loginName) time date (toS s)) hst
-# (_,hst)			= if newsubmit (universalDB (Set,newdiscf.value) name (\_ _ -> Ok) hst) (undef,hst)
+# (_,hst)			= if newsubmit (universalDB (Set,newdiscf.value,name) (\_ _ -> Ok) hst) (undef,hst)
 # (disclistf,hst) 	= mkEditForm (Set,sdFormId "sh_show_disc" newdiscf.value) hst
 # (newsubmit,newdiscf,hst)	
 					= if newsubmit (mkSubStateForm (Set,nFormId "sh_dpp_adddisc" (TS 80 "")) disclist

libraries/htmlGEC/htmlRefFormlib.dcl

@@ -14,7 +14,7 @@ invokeRefEditor :: (!(InIDataId b) !*HSt -> (Form d,!*HSt)) (InIDataId b) !*HSt
 
 universalRefEditor 	:: !(InIDataId (Ref2 a)) !(a -> Judgement)  !*HSt -> (Form a,!*HSt)   	| iData, TC a
 
-universalDB 		:: !(!Init,!a) !String !(String a -> Judgement) !*HSt -> (a,!*HSt) 		| iData, TC a
+universalDB 		:: !(!Init,!a,!String) !(String a -> Judgement) !*HSt -> (a,!*HSt) 		| iData, TC a
 
 // Usefull for exception handling
 

libraries/htmlGEC/htmlRefFormlib.icl

@@ -72,8 +72,8 @@ where
 
 // editor for persistent information
 
-universalDB :: !(!Init,!a) !String !(String a -> Judgement) !*HSt -> (a,!*HSt)   | iData, TC a
-universalDB (init,value) filename invariant hst
+universalDB :: !(!Init,!a,!String) !(String a -> Judgement) !*HSt -> (a,!*HSt)   | iData, TC a
+universalDB (init,value,filename) invariant hst
 # (dbf,hst)			= myDatabase Init 0 value hst				// create / read out database file
 # dbversion			= fst dbf.value								// version number stored in database
 # dbvalue			= snd dbf.value								// value stored in database