Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Jan Koniarik
schpin-robot
Commits
51618d8a
Commit
51618d8a
authored
Mar 18, 2021
by
Jan Koniarik
Browse files
basic lazy generation of files
parent
7e1e2f7f
Changes
1
Hide whitespace changes
Inline
Side-by-side
schpin_koke/src/Parser.hs
View file @
51618d8a
...
...
@@ -9,7 +9,7 @@ import Control.Monad.State.Lazy
import
Data.ByteString
as
BS
(
readFile
)
import
Data.ByteString.Lazy
as
BSL
(
writeFile
)
(
writeFile
,
unpack
)
import
qualified
Data.Csv
as
CSV
import
Data.Fixed
(
mod'
)
import
qualified
Data.HashMap.Lazy
as
HM
...
...
@@ -676,7 +676,7 @@ generateBOM walker pconf = do
write_f
(
filebase
,
p
)
=
do
let
filename
=
"out/bom/"
++
filebase
++
".csv"
createDirectoryIfMissing
True
$
takeDirectory
filename
BSL
.
writeFile
filename
(
CSV
.
encode
$
parts_to_CSV
p
)
writeFile
IfChanged
filename
(
show
$
BSL
.
unpack
$
CSV
.
encode
$
parts_to_CSV
p
)
write_sum
::
[
ExtrPart
]
->
IO
()
write_sum
parts
=
do
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment