bin/gargantext-cbor2json/Main.hs

   1
   2 import System.Environment (getArgs)
   3 import Prelude (IO, id, (.), ($))
   4 import Data.Aeson (encode)
   5 import Codec.Serialise (deserialise)
   6 import qualified Data.ByteString.Lazy as L
   7 import Gargantext.Core.NodeStory (NodeListStory)
   8
   9 main :: IO ()
  10 main = do
  11   [inFile,outFile] <- getArgs
  12   inData <- L.readFile inFile
  13   let outData = (encode . (id :: NodeListStory -> NodeListStory) . deserialise) inData
  14   L.writeFile outData