more cleanup

affection.cabal

@@ -68,10 +68,8 @@ library
                      , Affection.Logging
                      , Affection.Types
                      , Affection.StateMachine
-                     , Affection.MouseInteractable
                      , Affection.Util
                      , Affection.MessageBus
-                     , Affection.MessageBus.Util
                      , Affection.MessageBus.Class
                      , Affection.MessageBus.Message
                      , Affection.MessageBus.Message.Class

src/Affection/Logging.hs

@@ -1,7 +1,7 @@
 {-# LANGUAGE CPP #-}
-module Affection.Logging where
+-- | This module defines the logging capability of Affection, whis is derived
--- ^ This module defines the logging capability of Affection, whis is derived
 -- from "Debug.Trace".
+module Affection.Logging where
 
 import Debug.Trace
 

src/Affection/MessageBus/Message/JoystickMessage.hs

@@ -21,7 +21,7 @@ import qualified SDL
 
 import Linear (V2(..))
 
--- Datatype for handling all possible joystick events handed over from sdl2
+-- | Datatype for handling all possible joystick events handed over from sdl2
 data JoystickMessage
   = MsgJoystickAxis -- ^ Movement of a Joystick axis
     { msgJAWhen :: Double -- ^ Time of event