Release code as open sourceHEADmaster

1 files changed, 27 insertions, 0 deletions

diff --git a/scaffolder/src/Text/Edifact/Fetcher/Simples.hs b/scaffolder/src/Text/Edifact/Fetcher/Simples.hs
new file mode 100644
index 0000000..47951ad
--- /dev/null
+++ b/scaffolder/src/Text/Edifact/Fetcher/Simples.hs
@@ -0,0 +1,27 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Text.Edifact.Fetcher.Simples
+  ( fetchSimples
+  , simplesDirectory
+  ) where
+
+import           Text.Edifact.Fetcher.Commons
+import           Text.Edifact.Scaffolder.Commons
+
+
+import           Data.Foldable                   (traverse_)
+import           Data.Text.Encoding              as TE (decodeUtf8)
+import           Formatting
+
+simplesDirectory :: FilePath
+simplesDirectory = "simples"
+
+fetchSimples :: [SimpleCode] -> Fetcher ()
+fetchSimples = traverse_ (retry 3 . fetchSimple)
+
+fetchSimple :: SimpleCode -> Fetcher ()
+fetchSimple code = do
+  say ("Fetching simple " % fSimpleCode) code
+  url <- getUrl ("/uncl/uncl" % fSimpleCodeLower % ".htm") code
+  outputFile <- getOutputFile (fSimpleCodeLower % ".txt") simplesDirectory code
+  htmlToFile url TE.decodeUtf8 outputFile