Correction : Filter : [Filter_Path_Section_Many].

[comptalang.git] / lib / Hcompta / Amount / Read.hs

diff --git a/lib/Hcompta/Amount/Read.hs b/lib/Hcompta/Amount/Read.hs
index e0f9c1f3a32fde64a5b5e919fbc71fdda64652e0..f1b62344e352a0fe1f5bec08f628b39d58a848bc 100644 (file)
--- a/lib/Hcompta/Amount/Read.hs
+++ b/lib/Hcompta/Amount/Read.hs
@@ -2,13 +2,19 @@
 {-# LANGUAGE NamedFieldPuns #-}
 module Hcompta.Amount.Read where
 
-import           Control.Monad (guard)
-import           Control.Applicative ((<$>), (<|>), (<*))
-import qualified Data.Char
+import           Control.Applicative ((<$>), (<*))
+import           Control.Applicative ((<|>))
+import           Control.Monad (Monad(..), guard)
+import           Data.Bool
+import           Data.Char
 import qualified Data.Decimal
-import qualified Data.List
-import           Data.String (fromString)
+import           Data.Eq (Eq(..))
+import           Data.List
+import           Data.Maybe (Maybe(..))
+import           Data.Ord (Ord(..))
+import           Data.String (String, fromString)
 import           Data.Typeable ()
+import           Prelude (($), Int, fromIntegral, Num(..), id)
 import qualified Text.Parsec as R hiding
                   ( char
                   , noneOf
@@ -78,7 +84,7 @@ quantity int_group_sep frac_sep frac_group_sep = do
                                map length $ digits
                canonicalize_grouping :: [Int] -> [Int]
                canonicalize_grouping groups =
-                       foldl -- NOTE: remove duplicates at beginning and reverse.
+                       foldl' -- NOTE: remove duplicates at beginning and reverse.
                         (\acc l0 -> case acc of
                                 l1:_ -> if l0 == l1 then acc else l0:acc
                                 _ -> l0:acc) [] $