Commit 90f02ec9 authored by John van Groningen's avatar John van Groningen

rename Info type to InfoMessage

parent 4254e881
......@@ -3,10 +3,10 @@ definition module messwin
import StdString, StdPSt
from IdeState import :: General
:: Info
:: InfoMessage
= Level1 String
| Level2 String
| Level3 [String]
showInfo :: !.Info !*(PSt General) -> !*PSt General
showInfo :: !.InfoMessage !*(PSt General) -> !*PSt General
closeInfo :: !*(PSt General) -> !*PSt General
......@@ -3,12 +3,12 @@ implementation module messwin
import StdString, StdPSt, StdBool, StdList, StdFunc
from IdeState import :: General, writeLog
:: Info
:: InfoMessage
= Level1 String
| Level2 String
| Level3 [String]
showInfo :: !.Info !*(PSt General) -> !*PSt General
showInfo :: !.InfoMessage !*(PSt General) -> !*PSt General
showInfo info ps
= case info of
(Level1 s) -> writeLog s ps
......
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