From 937535057c203ec7ce76d357375aa378979e7c6e Mon Sep 17 00:00:00 2001 From: nek0 Date: Tue, 25 Sep 2018 16:10:36 +0200 Subject: [PATCH] more cleanup --- affection.cabal | 2 -- src/Affection/Logging.hs | 4 ++-- src/Affection/MessageBus/Message/JoystickMessage.hs | 2 +- 3 files changed, 3 insertions(+), 5 deletions(-) diff --git a/affection.cabal b/affection.cabal index dfeec64..378b5c5 100644 --- a/affection.cabal +++ b/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 diff --git a/src/Affection/Logging.hs b/src/Affection/Logging.hs index e64ed7c..f18b30e 100644 --- a/src/Affection/Logging.hs +++ b/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 diff --git a/src/Affection/MessageBus/Message/JoystickMessage.hs b/src/Affection/MessageBus/Message/JoystickMessage.hs index eb5c0e2..645f4d3 100644 --- a/src/Affection/MessageBus/Message/JoystickMessage.hs +++ b/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