[Fencommits] fenfire-hs: use Map.lookup like its defined in GHC 6.10

[Tuukka Hastrup]

Mon Oct  5 16:23:06 EEST 2009  Tuukka Hastrup <Tuukka.Hastrup at iki.fi>
  * use Map.lookup like its defined in GHC 6.10
  Ignore-this: ef2fd868d76664fca62de42ee4ea760a

    M ./Fenfire/Vobs.fhs -1 +1

Mon Oct  5 16:23:06 EEST 2009  Tuukka Hastrup <Tuukka.Hastrup at iki.fi>
  * use Map.lookup like its defined in GHC 6.10
  Ignore-this: ef2fd868d76664fca62de42ee4ea760a
diff -rN -u old-fenfire-hs/Fenfire/Vobs.fhs new-fenfire-hs/Fenfire/Vobs.fhs
--- old-fenfire-hs/Fenfire/Vobs.fhs	2009-10-05 17:28:00.738173957 +0300
+++ new-fenfire-hs/Fenfire/Vobs.fhs	2009-10-05 17:28:00.748196183 +0300
@@ -120,7 +120,7 @@
 
 (@@) :: Ord k => Cx k a -> k -> Cx k a   -- pronounce as 'of'
 (@@) x key = do cx <- ask
-                rect <- maybeReturn =<< Map.lookup key (rcScene cx)
+                rect <- maybeReturn =<< maybeReturn (Map.lookup key (rcScene cx))
                 local (\_ -> cx { rcRect = rect }) x