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 = L.interact (encode . (id :: NodeListStory -> NodeListStory) . deserialise)