[BIN] cbor2json without input/output files

85fddcab · Alexandre Delanoë · 8484ca0f · 85fddcab
Commit 85fddcab authored Nov 25, 2021 by Alexandre Delanoë
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 5 deletions

Main.hs bin/gargantext-cbor2json/Main.hs +1 -5

No files found.
--- a/bin/gargantext-cbor2json/Main.hs
+++ b/bin/gargantext-cbor2json/Main.hs
@@ -7,8 +7,4 @@ import qualified Data.ByteString.Lazy as L
 import Gargantext.Core.NodeStory (NodeListStory)

 main :: IO ()
-main = do
-  [inFile,outFile] <- getArgs
-  inData <- L.readFile inFile
-  let outData = (encode . (id :: NodeListStory -> NodeListStory) . deserialise) inData
-  L.writeFile outData
+main = L.interact (encode . (id :: NodeListStory -> NodeListStory) . deserialise)