From efae8f8f2a17600b2c7892eb6ac20cdb4f5f24c2 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 4 Aug 2018 16:44:05 +0100
Subject: [PATCH] lib: comment

---
 hledger-lib/Hledger/Data/Journal.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/hledger-lib/Hledger/Data/Journal.hs b/hledger-lib/Hledger/Data/Journal.hs
index d47dd2bc2..ed4d2aa9c 100644
--- a/hledger-lib/Hledger/Data/Journal.hs
+++ b/hledger-lib/Hledger/Data/Journal.hs
@@ -765,8 +765,7 @@ commodityStylesFromAmounts amts = M.fromList commstyles
     commstyles = [(c, canonicalStyleFrom $ map astyle as) | (c,as) <- commamts]
 
 -- | Given an ordered list of amount styles, choose a canonical style.
--- That is: the style of the first, and the
--- maximum precision of all.
+-- That is: the style of the first, and the maximum precision of all.
 canonicalStyleFrom :: [AmountStyle] -> AmountStyle
 canonicalStyleFrom [] = amountstyle
 canonicalStyleFrom ss@(first:_) =