diff --git a/eventloop.cabal b/eventloop.cabal
--- a/eventloop.cabal
+++ b/eventloop.cabal
@@ -6,7 +6,7 @@
 -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             0.8.1.1
+version:             0.8.1.2
 synopsis:            A different take on an IO system. Based on Amanda's IO loop, this eventloop takes a function that maps input events to output events. It can easily be extended by modules that represent IO devices or join multiple modules together.
 description:         A different take on an IO system. Based on Amanda's IO loop, this eventloop takes a function that maps input events to output events. It can easily be extended by modules that represent IO devices or join multiple modules together.
                      Each module exists of a initialize and teardown function that are both called once at startup and shutting down. During run-time, a module can provice a preprocessor function (which transforms input events before they get to the eventloop),
diff --git a/src/Eventloop/Module/StatefulGraphics/StatefulGraphics.hs b/src/Eventloop/Module/StatefulGraphics/StatefulGraphics.hs
--- a/src/Eventloop/Module/StatefulGraphics/StatefulGraphics.hs
+++ b/src/Eventloop/Module/StatefulGraphics/StatefulGraphics.hs
@@ -128,7 +128,7 @@
         (_, toRedraw', toRemove') = calculateRedrawsForRemoved (state, toRedraw, toRemove) sg
 
 calculateRedraws state ((Modified sg):performed)
-    -- | noDimChange oldGraphic newGraphic = calculateDraws toCheck toRedraw (Drawn sg) TODO Modified -> Drawn optimalization
+    --  noDimChange oldGraphic newGraphic = calculateDraws toCheck toRedraw (Drawn sg) TODO Modified -> Drawn optimalization
     = calculateRedraws state ((Removed sg):(Drawn sg):performed)
 
 calculateRedraws state (NoOp:performed)
diff --git a/src/Eventloop/System/EventloopThread.hs b/src/Eventloop/System/EventloopThread.hs
--- a/src/Eventloop/System/EventloopThread.hs
+++ b/src/Eventloop/System/EventloopThread.hs
@@ -56,7 +56,7 @@
         moduleProcessors = map (\(id, ioConst, iostate, (Just processFunc)) -> (id, ioConst, iostate, processFunc)) moduleProcessorsJ
 
         
-eventloopSteps :: (progstateT -> In -> (progstateT, [Out])) {-| eventloop function -}
+eventloopSteps :: (progstateT -> In -> (progstateT, [Out])) {-^ eventloop function -}
                -> TVar progstateT
                -> [In]
                -> IO [Out]
@@ -67,7 +67,7 @@
         sequencedSteps = sequence inEventSteps
     
         
-eventloopStep :: (progstateT -> In -> (progstateT, [Out])) {-| eventloop function -}
+eventloopStep :: (progstateT -> In -> (progstateT, [Out])) {-^ eventloop function -}
               -> TVar progstateT
               -> In
               -> IO [Out]