bin/gargantext-cbor2json/Main.hs

   1 import Prelude (IO, id, (.))
   2 import Data.Aeson (encode)
   3 import Codec.Serialise (deserialise)
   4 import qualified Data.ByteString.Lazy as L
   5
   6 import Gargantext.API.Ngrams.Types (NgramsRepo)
   7
   8 main :: IO ()
   9 main = L.interact (encode . (id :: NgramsRepo -> NgramsRepo) . deserialise)