wgaffa/ffxwt - Change OHUQR7PRCC7IQCX3SH74IJRAC5EKAMWMLZIEQAWM2IUSMECY574QC

Remove Conversion class and pass in a function as converter instead

Created by wgaffa on January 7, 2023

OHUQR7PRCC7IQCX3SH74IJRAC5EKAMWMLZIEQAWM2IUSMECY574QC

Dependencies

In channels

main

Change contents

Deletion in src/Item.hs at line 104 [3.2441]
B:BD[3.4466] → [3.4466:4467]
B:BD[3.4467] → [2.1377:1439]
```
class Restoreable a where
    toRestore :: a -> RestoreAmount
```

Replacement in src/Item.hs at line 105 [3.2441]

B:BD[2.1440] → [2.1440:1562]

instance Restoreable Int where
    toRestore = RestoreAmount
instance Restoreable RestoreAmount where
    toRestore = id

[2.1440]

[2.1562]

health :: (a -> RestoreAmount) -> a -> EffectType
health f = Restore . HPRestore . f

Replacement in src/Item.hs at line 108 [3.2441]

B:BD[2.1563] → [2.1563:1647]

health :: Restoreable a => a -> EffectType
health = Restore . HPRestore . toRestore

[2.1563]

[3.4596]

mana :: (a -> RestoreAmount) -> a -> EffectType
mana f = Restore . MPRestore . f

Deletion in src/Item.hs at line 111 [3.2441]

B:BD[3.4597] → [2.1648:1729]

mana :: Restoreable a => a -> EffectType
mana = Restore . MPRestore . toRestore

Replacement in src/Item.hs at line 114 [3.2441]

B:BD[2.1799] → [2.1799:2119]

    , item "Potion" "Restores 200 HP" Single [health @Int 200] Potion Common
    , item "Hi-Potion" "Restores 1,000 HP" Single [health @Int 1000] Potion Common
    , item "X-Potion" "Fully restores HP" Single [health RestoreFull] Potion Uncommon
    , item "Ether" "Restores 100 MP" Single [mana @Int 100] Potion Common

[2.1799]

[2.2119]

    , item "Potion" "Restores 200 HP" Single [health RestoreAmount 200] Potion Common
    , item "Hi-Potion" "Restores 1,000 HP" Single [health RestoreAmount 1000] Potion Common
    , item "X-Potion" "Fully restores HP" Single [health id RestoreFull] Potion Uncommon
    , item "Ether" "Restores 100 MP" Single [mana RestoreAmount 100] Potion Common

Replacement in src/Item.hs at line 123 [3.2441]

B:BD[2.2515] → [2.2515:2614]

    , item "Mega Potion" "Restore 2000 HP for all allies" Multi [health @Int 2000] Potion Uncommon

[2.2515]

[2.2614]

    , item "Mega Potion" "Restore 2000 HP for all allies" Multi [health RestoreAmount 2000] Potion Uncommon