Skip to content

GitLab

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

rename Info type to InfoMessage

parent 4254e881
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 4 deletions
BatchBuild/messwin.dcl
View file @ 90f02ec9
......@@ -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
BatchBuild/messwin.icl
View file @ 90f02ec9
......@@ -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