diff options
Diffstat (limited to 'scaffolder/src/Text/Edifact/BundleReader/CodedSimples.hs')
-rw-r--r-- | scaffolder/src/Text/Edifact/BundleReader/CodedSimples.hs | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/scaffolder/src/Text/Edifact/BundleReader/CodedSimples.hs b/scaffolder/src/Text/Edifact/BundleReader/CodedSimples.hs new file mode 100644 index 0000000..7dc92fd --- /dev/null +++ b/scaffolder/src/Text/Edifact/BundleReader/CodedSimples.hs | |||
@@ -0,0 +1,38 @@ | |||
1 | {-# LANGUAGE OverloadedStrings #-} | ||
2 | |||
3 | module Text.Edifact.BundleReader.CodedSimples | ||
4 | ( readCodedSimples | ||
5 | ) where | ||
6 | |||
7 | import Text.Edifact.BundleReader.Commons | ||
8 | import Text.Edifact.BundleReader.Configuration (BundleReaderEnv (..)) | ||
9 | import Text.Edifact.BundleReader.Simples (simplesDirectory) | ||
10 | import Text.Edifact.Scaffolder.Commons | ||
11 | |||
12 | import Text.Edifact.Scaffolder.CodedSimples.Specification | ||
13 | |||
14 | import Control.Monad (when) | ||
15 | import Control.Monad.Reader (asks) | ||
16 | import Data.ByteString as BS (ByteString, | ||
17 | readFile) | ||
18 | import Formatting | ||
19 | |||
20 | readCodedSimples :: [ByteString] -> [SimpleCode] -> BundleReader () | ||
21 | readCodedSimples contents simples = do | ||
22 | let parsedFile path = parseFile simples =<< liftIO (BS.readFile path) | ||
23 | parsedString = parseFile simples | ||
24 | files <- asks codedSimplesFiles | ||
25 | mapM_ parsedFile files | ||
26 | mapM_ parsedString contents | ||
27 | |||
28 | parseFile :: [SimpleCode] -> ByteString -> BundleReader [SimpleCode] | ||
29 | parseFile simples content = | ||
30 | let chunks = tail $ splitFileByDash 70 $ decodeContent content | ||
31 | in traverse (parseChunk simples) chunks | ||
32 | |||
33 | parseChunk :: [SimpleCode] -> Text -> BundleReader SimpleCode | ||
34 | parseChunk simples chunk = do | ||
35 | parsed <- parseOrFail chunk specificationParser | ||
36 | outputFile <- getOutputFile (fSimpleCodeLower % ".txt") simplesDirectory (fst parsed) | ||
37 | when (fst parsed `elem` simples) $ toFile chunk outputFile | ||
38 | pure $ fst parsed | ||