rm redundant bolt11 code

Author: functora

pub/functora/functora.cabal

@@ -348,9 +348,7 @@ library bolt11
   import:          pkg-bolt11
   exposed:         True
   visibility:      public
-  exposed-modules:
-    Functora.Bolt11
-    Functora.Denomination
+  exposed-modules: Functora.Bolt11
 
 executable elm2miso
   import:        pkg-elm2miso, exe
@@ -404,7 +402,6 @@ test-suite functora-test
       Functora.Bolt11
       Functora.Cfg
       Functora.CfgOrphan
-      Functora.Denomination
       Functora.Elm2Miso
       Functora.Money
       Functora.MoneySing

pub/functora/src/bolt11/Functora/Bolt11.hs

@@ -3,7 +3,6 @@
 
 module Functora.Bolt11
   ( Bolt11 (..),
-    bolt11Msats,
     decodeBolt11,
     Hex (..),
     Multiplier (..),
@@ -35,7 +34,6 @@ import Data.Text (Text)
 import qualified Data.Text as T
 import Data.Text.Encoding (decodeUtf8)
 import qualified Data.Text.Encoding as T
-import Functora.Denomination (Denomination (toMsats), MSats, btc)
 import GHC.Generics (Generic)
 import Prelude
 
@@ -101,7 +99,11 @@ newtype Bolt11Amount = Bolt11Amount {_getBolt11Amount :: (Integer, Multiplier)}
   deriving stock (Data, Generic)
 
 instance Show Bolt11Amount where
-  show amt = show (bolt11Msats amt)
+  show (Bolt11Amount (amt, mul)) =
+    show msat <> " msats"
+    where
+      msat :: Integer
+      msat = round $ (amt % 1) * multiplierRatio mul * 1000_0000_0000
 
 data Bolt11HRP = Bolt11HRP
   { bolt11Currency :: Network,
@@ -221,7 +223,3 @@ multiplierRatio m =
     Micro -> 1 % 1000000
     Nano -> 1 % 1000000000
     Pico -> 1 % 1000000000000
-
-bolt11Msats :: Bolt11Amount -> MSats
-bolt11Msats (Bolt11Amount (amt, multi)) =
-  toMsats (btc (multiplierRatio multi * toRational amt))

pub/functora/src/bolt11/Functora/Denomination.hs

@@ -156,7 +156,6 @@ library
     Functora.Bolt11
     Functora.Cfg
     Functora.CfgOrphan
-    Functora.Denomination
     Functora.Money
     Functora.MoneySing
     Functora.Prelude
@@ -214,7 +213,6 @@ test-suite functora-ghcjs-test
     Functora.Bolt11
     Functora.Cfg
     Functora.CfgOrphan
-    Functora.Denomination
     Functora.Elm2Miso
     Functora.Money
     Functora.MoneySing