[Fencommits] fenfire-hs: tuukka's slight simplification of the prezn view scrolling code

[Benja Fallenstein]

Thu Mar 15 17:13:44 EET 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * tuukka's slight simplification of the prezn view scrolling code
diff -rN -u old-fenfire-hs/Fenfire.fhs new-fenfire-hs/Fenfire.fhs
--- old-fenfire-hs/Fenfire.fhs	2007-03-15 17:14:21.000000000 +0200
+++ new-fenfire-hs/Fenfire.fhs	2007-03-15 17:14:21.000000000 +0200
@@ -138,7 +138,7 @@
     space = changeSize (const (0, 20)) mempty
     vobs = List.intersperse space $ f 3 node : map (f 2) children
     index = fromMaybe 0 $ selected >>= \n -> List.elemIndex n children
-    y = sum [defaultHeight (vobs !! i) | i <- [0 .. 2 * index - 1]]
+    y = sum $ map defaultHeight $ take (2 * index) vobs
     vob = pad 30 $ translate #0 #(-y) $ vbox $ vobs