Correction : Model.Filter : Test_Bool : opérateurs.

[comptalang.git] / lib / Hcompta / Model / Amount / Style.hs

diff --git a/lib/Hcompta/Model/Amount/Style.hs b/lib/Hcompta/Model/Amount/Style.hs
index e07a2941f06afbb1005662d40d992f7684a15965..52e5998d1830b56aee665c85fe49ecfa2a8c6d3f 100644 (file)
--- a/lib/Hcompta/Model/Amount/Style.hs
+++ b/lib/Hcompta/Model/Amount/Style.hs
@@ -9,12 +9,13 @@ import Data.Typeable ()
 
 data Style
  =   Style
- { fractioning :: Maybe Fractioning
- , grouping_integral :: Maybe Grouping
+ { fractioning         :: Maybe Fractioning
+ , grouping_integral   :: Maybe Grouping
  , grouping_fractional :: Maybe Grouping
- , precision :: Precision
- , unit_side :: Maybe Side
- , unit_spaced :: Maybe Spacing
+ , precision           :: Precision
+ -- TODO: , sign_plus           :: Maybe Bool
+ , unit_side           :: Maybe Side
+ , unit_spaced         :: Maybe Spacing
  } deriving (Data, Eq, Ord, Read, Show, Typeable)
 
 type Fractioning