remove redundant stuff

Author: functora

pub/functora/functora.cabal

@@ -248,7 +248,7 @@ common pkg-money
     , aeson-combinators
     , base
     , cfg
-    , tags
+    , singlethongs
     , template-haskell
 
 common pkg-rates

pub/functora/src/money/Functora/Money.hs

@@ -21,7 +21,6 @@ import qualified Data.Aeson.Combinators.Decode as A
 import Functora.Cfg
 import Functora.MoneySing as X
 import Functora.Prelude
-import Functora.Tags as X
 
 data Money = Money
   { moneyAmount :: MoneyAmount,

pub/functora/src/money/Functora/MoneySing.hs

@@ -5,8 +5,8 @@ module Functora.MoneySing where
 import Data.Type.Equality
 import Functora.Cfg
 import Functora.Prelude
-import Functora.Tags
 import qualified Language.Haskell.TH.Syntax as TH
+import Singlethongs
 
 data CurrencyKind = Crypto | Stable | Fiat
   deriving stock (Eq, Ord, Show, Read, Enum, Bounded, Data, Generic, TH.Lift)
@@ -48,26 +48,6 @@ data SignedOrUnsigned = Signed | Unsigned
   deriving stock (Eq, Ord, Show, Read, Enum, Bounded, Data, Generic, TH.Lift)
   deriving (HasCodec, HasItemCodec) via GenericEnum SignedOrUnsigned
 
-type instance Fgpt CurrencyKind = "Functora.MoneySing.CurrencyKind"
-
-type instance Fgpt BuyOrSell = "Functora.MoneySing.BuyOrSell"
-
-type instance Fgpt NetOrGross = "Functora.MoneySing.NetOrGross"
-
-type instance Fgpt GainOrLose = "Functora.MoneySing.GainOrLose"
-
-type instance Fgpt BaseOrQuote = "Functora.MoneySing.BaseOrQuote"
-
-type instance Fgpt MakerOrTaker = "Functora.MoneySing.MakerOrTaker"
-
-type instance Fgpt LocalOrRemote = "Functora.MoneySing.LocalOrRemote"
-
-type instance Fgpt MinOrMax = "Functora.MoneySing.MinOrMax"
-
-type instance Fgpt Revenue = "Functora.MoneySing.Revenue"
-
-type instance Fgpt SignedOrUnsigned = "Functora.MoneySing.SignedOrUnsigned"
-
 --
 -- SignedOrUnsigned
 --