jcc/Hcompta/Format/JCC/Account/Read.hs

   1 {-# LANGUAGE FlexibleContexts #-}
   2 {-# LANGUAGE NamedFieldPuns #-}
   3 {-# LANGUAGE OverloadedStrings #-}
   4 {-# LANGUAGE ScopedTypeVariables #-}
   5 {-# LANGUAGE TupleSections #-}
   6 {-# LANGUAGE TypeFamilies #-}
   7 module Hcompta.Format.JCC.Account.Read where
   8
   9 {-
  10 import           Control.Applicative ((<$>), (<*>))
  11 import           Control.Monad (Monad(..))
  12 import           Data.Char
  13 import qualified Data.List.NonEmpty as NonEmpty
  14 import           Data.Typeable ()
  15 import           Data.Text (Text)
  16 import qualified Text.Parsec as R hiding
  17                   ( char
  18                   , anyChar
  19                   , crlf
  20                   , newline
  21                   , noneOf
  22                   , oneOf
  23                   , satisfy
  24                   , space
  25                   , spaces
  26                   , string
  27                   , tab
  28                   )
  29 import           Text.Parsec (Stream, ParsecT)
  30
  31 import qualified Hcompta.Account as Account
  32 import           Hcompta.Format.JCC.Common.Read
  33 import qualified Hcompta.Format.JCC as JCC
  34 import qualified Hcompta.Lib.Parsec as R
  35 -}