Improve GNUmakefile.

[comptalang.git] / lcc / Hcompta / LCC / Sym.hs

diff --git a/lcc/Hcompta/LCC/Sym.hs b/lcc/Hcompta/LCC/Sym.hs
index 3a8685b959266d1525e711cc947a0b21deddd9a7..6905af1220a50e7362efc1bad0e4cc10df94cb83 100644 (file)
--- a/lcc/Hcompta/LCC/Sym.hs
+++ b/lcc/Hcompta/LCC/Sym.hs
@@ -1,10 +1,12 @@
 {-# LANGUAGE NoMonomorphismRestriction #-}
+{-# LANGUAGE UndecidableInstances #-}
 -- | Symantics.
 module Hcompta.LCC.Sym
  ( module Hcompta.LCC.Sym
  , module Hcompta.LCC.Sym.Account
  , module Hcompta.LCC.Sym.Addable
  , module Hcompta.LCC.Sym.Amount
+ , module Hcompta.LCC.Sym.Compta
  , module Hcompta.LCC.Sym.Date
  , module Hcompta.LCC.Sym.FileSystem
  , module Hcompta.LCC.Sym.Journal
@@ -20,6 +22,7 @@ module Hcompta.LCC.Sym
 import Hcompta.LCC.Sym.Account
 import Hcompta.LCC.Sym.Addable
 import Hcompta.LCC.Sym.Amount
+import Hcompta.LCC.Sym.Compta
 import Hcompta.LCC.Sym.Date
 import Hcompta.LCC.Sym.FileSystem
 import Hcompta.LCC.Sym.Journal
@@ -34,6 +37,7 @@ import Hcompta.LCC.Sym.Zipper
 import Hcompta.LCC.Account (Account)
 import Hcompta.LCC.Amount (Amounts, Quantity, Unit)
 import Hcompta.LCC.Journal (Journal, PathFile)
+import Hcompta.LCC.Compta (Compta)
 import Hcompta.LCC.Posting (Posting, Date)
 import Hcompta.LCC.Transaction (Transaction)
 import Hcompta.Quantity (Addable, Negable, Subable)
@@ -89,6 +93,7 @@ type SS =
  , Proxy Traversable
  , Proxy Unit
  , Proxy Zipper
+ -- , Proxy (Compta () (SymsFix FixSS))
  ]
 
 
@@ -126,7 +131,7 @@ feed_args te as = go te as
 type SRC = ()
 x0 ::
  IO ( ( Either (P.ParseError Char P.Dec)
-                 (S.Either [At SRC (Error_Journal SRC)] (CanonFile, Journal [Transaction]))
+                 (S.Either [At SRC (Error_Compta SRC)] (CanonFile, Journal [Transaction]))
         , Context_Read SRC [Transaction] )
       , Context_Sym SRC SS )
 x0 = readJournal @SS "./Hcompta/LCC/Journal/02.jnl" (:)