Make render function return cachable surface slices

2011-08-21 19:34:16 +02:00 · 2011-08-21 19:34:16 +02:00 · 42c14fa1ca
commit 42c14fa1ca
parent ddca7c3ec5
8 changed files with 234 additions and 161 deletions
--- a/src/Phi.hs
+++ b/src/Phi.hs
@ -52,5 +52,5 @@ main = do
                                          , lineSpacing = (-3)
                                          , clockSize = 75
                                          }
-      brightBorder :: (Widget w d) => w -> Border w d
+      brightBorder :: (Widget w s c) => w -> Border w s c
      brightBorder = border normalDesktopBorder