Make haddock happy
authorJoachim Breitner <mail@joachim-breitner.de>
Sat, 13 Jun 2009 09:48:33 +0000 (11:48 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Sat, 13 Jun 2009 09:48:33 +0000 (11:48 +0200)
src/Lseed/Data.hs

index c3db176..d06dd1c 100644 (file)
@@ -80,9 +80,9 @@ data ScreenContent = ScreenContent
        }
 
 -- | Main loop observers
        }
 
 -- | Main loop observers
-data Observer = Observer
+data Observer = Observer {
        -- | Called once, before the main loop starts
        -- | Called once, before the main loop starts
-       { obInit :: IO ()
+         obInit :: IO ()
        -- | Called once per tick, with the current tick number and the current
        -- state of the garden
        , obState :: Integer -> GrowingGarden -> IO ()
        -- | Called once per tick, with the current tick number and the current
        -- state of the garden
        , obState :: Integer -> GrowingGarden -> IO ()