diff options
| author | LLLL Colonq <llll@colonq> | 2024-05-07 14:21:13 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-05-07 14:21:13 -0400 |
| commit | a81c92dc2cdff02c55fdc197d943bc7a35c64be5 (patch) | |
| tree | c5c4039f1e81d8290859656f3a0d306e6af62053 /fig-emulator-gb/src/Fig/Emulator/GB/Bus.hs | |
| parent | 82d4f5c55bdb1f160fe558bd9e413b726e36541b (diff) | |
fig-emulator-gb: Fix space leak
Diffstat (limited to 'fig-emulator-gb/src/Fig/Emulator/GB/Bus.hs')
| -rw-r--r-- | fig-emulator-gb/src/Fig/Emulator/GB/Bus.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/fig-emulator-gb/src/Fig/Emulator/GB/Bus.hs b/fig-emulator-gb/src/Fig/Emulator/GB/Bus.hs index dd61dbc..6550d2d 100644 --- a/fig-emulator-gb/src/Fig/Emulator/GB/Bus.hs +++ b/fig-emulator-gb/src/Fig/Emulator/GB/Bus.hs @@ -20,11 +20,11 @@ instance Pretty Addr where pretty (Addr w) = "$" <> pack (showHex w "") data Component m = forall (s :: Type). Component - { compState :: !s - , compMatches :: !(Addr -> Bool) - , compUpdate :: !(s -> Int -> m s) - , compWrite :: !(s -> Addr -> Word8 -> m s) - , compRead :: !(s -> Addr -> m Word8) + { compState :: s + , compMatches :: Addr -> Bool + , compUpdate :: s -> Int -> m s + , compWrite :: s -> Addr -> Word8 -> m s + , compRead :: s -> Addr -> m Word8 } newtype Bus m = Bus { busComponents :: [Component m] } |