lib: Types: fix/silence hlint warnings

This commit is contained in:
Simon Michael 2018-02-15 07:35:51 -08:00
parent 298651fa02
commit 6d94eed6fd

View File

@ -118,10 +118,10 @@ instance NFData Side
-- | The basic numeric type used in amounts. -- | The basic numeric type used in amounts.
type Quantity = Decimal type Quantity = Decimal
deriving instance Data (Quantity) deriving instance Data Quantity
-- The following is for hledger-web, and requires blaze-markup. -- The following is for hledger-web, and requires blaze-markup.
-- Doing it here avoids needing a matching flag on the hledger-web package. -- Doing it here avoids needing a matching flag on the hledger-web package.
instance ToMarkup (Quantity) instance ToMarkup Quantity
where where
toMarkup = toMarkup . show toMarkup = toMarkup . show
@ -229,6 +229,7 @@ data GenericSourcePos = GenericSourcePos FilePath Int Int -- ^ name, 1-based
instance NFData GenericSourcePos instance NFData GenericSourcePos
{-# ANN Transaction "HLint: ignore" #-}
data Transaction = Transaction { data Transaction = Transaction {
tindex :: Integer, -- ^ this transaction's 1-based position in the input stream, or 0 when not available tindex :: Integer, -- ^ this transaction's 1-based position in the input stream, or 0 when not available
tsourcepos :: GenericSourcePos, tsourcepos :: GenericSourcePos,
@ -314,9 +315,9 @@ data Journal = Journal {
,jlastreadtime :: ClockTime -- ^ when this journal was last read from its file(s) ,jlastreadtime :: ClockTime -- ^ when this journal was last read from its file(s)
} deriving (Eq, Typeable, Data, Generic) } deriving (Eq, Typeable, Data, Generic)
deriving instance Data (ClockTime) deriving instance Data ClockTime
deriving instance Typeable (ClockTime) deriving instance Typeable ClockTime
deriving instance Generic (ClockTime) deriving instance Generic ClockTime
instance NFData ClockTime instance NFData ClockTime
instance NFData Journal instance NFData Journal