nek0/tracer
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

post affection release changes

Browse source
This commit is contained in:
nek0 2018-09-25 17:37:30 +02:00
parent b6e4bd543f
commit 1646d2c68a
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
shell.nix
View file

@ -16,8 +16,8 @@ let
version = "0.0.0.9"; version = "0.0.0.9";
src = fetchgit { src = fetchgit {
url = "https://github.com/nek0/affection"; url = "https://github.com/nek0/affection";
sha256 = "16s1i0aa5xzrxliynfs1c0s7pb9pmmpyan8v6968hyx4h377b1p6"; sha256 = "0jxrdx56wisg9ng9sd9rxzrifs6826d6vjzjgvm6wp1bivnn1kyw";
rev = "a6c314f3ac1b5fd9ccc2fbe8fe54b153b27c84c9"; rev = "f822b5cabb2050c8a06a7c396a4f258c03545ef1";
fetchSubmodules = true; fetchSubmodules = true;
}; };
configureFlags = [ "-fdebug" ]; configureFlags = [ "-fdebug" ];

8
src/Types/UserData.hs
View file

@ -53,7 +53,7 @@ data SubMain
deriving (Eq) deriving (Eq)
data Subsystems = Subsystems data Subsystems = Subsystems
{ subWindow :: Window { subWindow :: Types.UserData.Window
, subMouse :: Mouse , subMouse :: Mouse
, subkeyboard :: Keyboard , subkeyboard :: Keyboard
} }
@ -62,8 +62,8 @@ newtype Window = Window (TVar [(UUID, WindowMessage -> Affection UserData())])
newtype Mouse = Mouse (TVar [(UUID, MouseMessage -> Affection UserData ())]) newtype Mouse = Mouse (TVar [(UUID, MouseMessage -> Affection UserData ())])
newtype Keyboard = Keyboard (TVar [(UUID, KeyboardMessage -> Affection UserData ())]) newtype Keyboard = Keyboard (TVar [(UUID, KeyboardMessage -> Affection UserData ())])
instance Participant Window UserData where instance Participant Types.UserData.Window UserData where
type Mesg Window UserData = WindowMessage type Mesg Types.UserData.Window UserData = WindowMessage
partSubscribers (Window t) = generalSubscribers t partSubscribers (Window t) = generalSubscribers t
@ -71,7 +71,7 @@ instance Participant Window UserData where
partUnSubscribe (Window t) = generalUnSubscribe t partUnSubscribe (Window t) = generalUnSubscribe t
instance SDLSubsystem Window UserData where instance SDLSubsystem Types.UserData.Window UserData where
consumeSDLEvents = consumeSDLWindowEvents consumeSDLEvents = consumeSDLWindowEvents
instance Participant Mouse UserData where instance Participant Mouse UserData where