Commit d78e59aa authored by Ronny Wichers Schreur's avatar Ronny Wichers Schreur

fixed uniqueness problem exposed by Clean 2.1 compiler

parent 5ed06661
......@@ -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)]
......
......@@ -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