ENH remove useless field
This commit is contained in:
parent
46decdc4de
commit
bf1434542f
|
@ -778,12 +778,7 @@ let Allocation =
|
||||||
-}
|
-}
|
||||||
\(w : Type) ->
|
\(w : Type) ->
|
||||||
\(v : Type) ->
|
\(v : Type) ->
|
||||||
{ alloTo : TaggedAcnt.Type
|
{ alloTo : TaggedAcnt.Type, alloAmts : List (Amount w v).Type }
|
||||||
, alloAmts : List (Amount w v).Type
|
|
||||||
, alloCur :
|
|
||||||
{-TODO allow exchanges here-}
|
|
||||||
CurID
|
|
||||||
}
|
|
||||||
|
|
||||||
let PretaxValue =
|
let PretaxValue =
|
||||||
{-
|
{-
|
||||||
|
|
|
@ -262,8 +262,6 @@ deriving instance (FromDhall v, FromDhall w) => FromDhall (Amount w v)
|
||||||
|
|
||||||
deriving instance (Hashable v, Hashable w) => Hashable (Amount w v)
|
deriving instance (Hashable v, Hashable w) => Hashable (Amount w v)
|
||||||
|
|
||||||
-- deriving instance (Generic w, Generic v, FromDhall w, FromDhall v) => FromDhall (Amount w v)
|
|
||||||
|
|
||||||
deriving instance (Show w, Show v) => Show (Amount w v)
|
deriving instance (Show w, Show v) => Show (Amount w v)
|
||||||
|
|
||||||
deriving instance (Eq w, Eq v) => Eq (Amount w v)
|
deriving instance (Eq w, Eq v) => Eq (Amount w v)
|
||||||
|
@ -271,7 +269,6 @@ deriving instance (Eq w, Eq v) => Eq (Amount w v)
|
||||||
data Allocation w v = Allocation
|
data Allocation w v = Allocation
|
||||||
{ alloTo :: TaggedAcnt
|
{ alloTo :: TaggedAcnt
|
||||||
, alloAmts :: [Amount w v]
|
, alloAmts :: [Amount w v]
|
||||||
, alloCur :: CurID
|
|
||||||
}
|
}
|
||||||
deriving (Eq, Show, Generic, Hashable)
|
deriving (Eq, Show, Generic, Hashable)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue