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

fix haddock failures (#281)

Browse Source
This commit is contained in:
Simon Michael 2015-08-26 10:11:32 -07:00
parent e5f00b3e05
commit d23d9acf33
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hledger-lib/Hledger/Data/AccountName.hs
View File

@ -32,9 +32,10 @@ accountNameFromComponents = concat . intersperse [acctsepchar]
accountLeafName :: AccountName -> String accountLeafName :: AccountName -> String
accountLeafName = last . accountNameComponents accountLeafName = last . accountNameComponents
-- | Truncate all account name components but the last to two characters.
accountSummarisedName :: AccountName -> String accountSummarisedName :: AccountName -> String
accountSummarisedName a accountSummarisedName a
-- | length cs > 1 = take 2 (head cs) ++ ":" ++ a' -- length cs > 1 = take 2 (head cs) ++ ":" ++ a'
| length cs > 1 = intercalate ":" (map (take 2) $ init cs) ++ ":" ++ a' | length cs > 1 = intercalate ":" (map (take 2) $ init cs) ++ ":" ++ a'
| otherwise = a' | otherwise = a'
where where

13
hledger-lib/Hledger/Data/StringFormat.hs
View File

@ -45,10 +45,15 @@ data StringFormat =
data StringFormatComponent = data StringFormatComponent =
FormatLiteral String -- ^ Literal text to be rendered as-is FormatLiteral String -- ^ Literal text to be rendered as-is
| FormatField Bool -- ^ Left justified if true, right justified if false | FormatField Bool
(Maybe Int) -- ^ Minimum width; will be space-padded if narrower than this (Maybe Int)
(Maybe Int) -- ^ Maximum width; will be clipped if wider than this (Maybe Int)
ReportItemField -- ^ One of several standard hledger report item fields to interpolate ReportItemField -- ^ A data field to be formatted and interpolated. Parameters:
--
-- - Left justify ? Right justified if false
-- - Minimum width ? Will be space-padded if narrower than this
-- - Maximum width ? Will be clipped if wider than this
-- - Which of the standard hledger report item fields to interpolate
deriving (Show, Eq) deriving (Show, Eq)
-- | An id identifying which report item field to interpolate. These -- | An id identifying which report item field to interpolate. These