slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lib: slight cleanup (spelling, hlint)

Browse Source 
[ci skip]
This commit is contained in:
Simon Michael 2019-02-14 02:02:25 -08:00
parent 17c4a47a85
commit 226add41d3
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
hledger-lib/Hledger/Data/Types.hs
View File

@ -26,6 +26,7 @@ import Control.DeepSeq (NFData)
import Data.Data import Data.Data
import Data.Decimal import Data.Decimal
import Data.Default import Data.Default
import Data.Functor (($>))
import Data.List (intercalate) import Data.List (intercalate)
import Text.Blaze (ToMarkup(..)) import Text.Blaze (ToMarkup(..))
--XXX https://hackage.haskell.org/package/containers/docs/Data-Map.html --XXX https://hackage.haskell.org/package/containers/docs/Data-Map.html
@ -289,7 +290,7 @@ data Posting = Posting {
instance NFData Posting instance NFData Posting
-- The equality test for postings ignores the parent transaction's -- The equality test for postings ignores the parent transaction's
-- identity, to avoid recuring ad infinitum. -- identity, to avoid recurring ad infinitum.
-- XXX could check that it's Just or Nothing. -- XXX could check that it's Just or Nothing.
instance Eq Posting where instance Eq Posting where
(==) (Posting a1 b1 c1 d1 e1 f1 g1 h1 i1 _ _) (Posting a2 b2 c2 d2 e2 f2 g2 h2 i2 _ _) = a1==a2 && b1==b2 && c1==c2 && d1==d2 && e1==e2 && f1==f2 && g1==g2 && h1==h2 && i1==i2 (==) (Posting a1 b1 c1 d1 e1 f1 g1 h1 i1 _ _) (Posting a2 b2 c2 d2 e2 f2 g2 h2 i2 _ _) = a1==a2 && b1==b2 && c1==c2 && d1==d2 && e1==e2 && f1==f2 && g1==g2 && h1==h2 && i1==i2
@ -297,17 +298,17 @@ instance Eq Posting where
-- | Posting's show instance elides the parent transaction so as not to recurse forever. -- | Posting's show instance elides the parent transaction so as not to recurse forever.
instance Show Posting where instance Show Posting where
show Posting{..} = "PostingPP {" ++ intercalate ", " [ show Posting{..} = "PostingPP {" ++ intercalate ", " [
("pdate=" ++ show (show pdate)) "pdate=" ++ show (show pdate)
,("pdate2=" ++ show (show pdate2)) ,"pdate2=" ++ show (show pdate2)
,("pstatus=" ++ show (show pstatus)) ,"pstatus=" ++ show (show pstatus)
,("paccount=" ++ show paccount) ,"paccount=" ++ show paccount
,("pamount=" ++ show pamount) ,"pamount=" ++ show pamount
,("pcomment=" ++ show pcomment) ,"pcomment=" ++ show pcomment
,("ptype=" ++ show ptype) ,"ptype=" ++ show ptype
,("ptags=" ++ show ptags) ,"ptags=" ++ show ptags
,("pbalanceassertion=" ++ show pbalanceassertion) ,"pbalanceassertion=" ++ show pbalanceassertion
,("ptransaction=" ++ show (const "<txn>" <$> ptransaction)) ,"ptransaction=" ++ show (ptransaction $> "txn")
,("porigin=" ++ show porigin) ,"porigin=" ++ show porigin
] ++ "}" ] ++ "}"
-- TODO: needs renaming, or removal if no longer needed. See also TextPosition in Hledger.UI.Editor -- TODO: needs renaming, or removal if no longer needed. See also TextPosition in Hledger.UI.Editor