Skip to content

GitLab

Commit 33578d2b authored by Ronny Wichers Schreur's avatar Ronny Wichers Schreur 🏘
Browse files

fixed uniqueness problem exposed by Clean 2.1 compiler

parent a03183a6
Hide whitespace changes
Inline Side-by-side
CleanIDE/Util/flexwin.dcl
View file @ 33578d2b
......@@ -7,7 +7,7 @@ class content_size c :: FontMetrics c -> Int
::FlexBarState s
:: FlexBarWindow s ls pst
= FlexBarWindow Title [(String, Maybe Int)] s
(s .Int .Int [.Int] -> (.SelectState .UpdateState -> .(*Picture -> *Picture)))
(s .Int .Int [.Int] -> (.SelectState .UpdateState -> (*Picture -> *Picture)))
![(FlexBarState s) -> FlexBarState s]
(R2Id (MessageIn s) (MessageOut s)) [WindowAttribute *(ls,pst)]
......
CleanIDE/Util/flexwin.icl
View file @ 33578d2b
......@@ -58,7 +58,7 @@ mi2cw (Just w)
Title
[(String, Maybe Int)]
s
(s .Int .Int [.Int] -> (.SelectState .UpdateState -> .(*Picture -> *Picture)))
(s .Int .Int [.Int] -> (.SelectState .UpdateState -> (*Picture -> *Picture)))
![(FlexBarState s) -> FlexBarState s]
(R2Id (MessageIn s) (MessageOut s))
[WindowAttribute *(ls,pst)]
......
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