diff --git a/bin/gargantext-cbor2json/Main.hs b/bin/gargantext-cbor2json/Main.hs index 739819ec5fa7e8997ab4feb2ce7c5fc5b43fc625..76d045273e0656fa5a3a0f330486b02f791f1de1 100644 --- 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)