[FIX] cbor2json

bin/gargantext-cbor2json/Main.hs

-import Prelude (IO, id, (.))
+
+import System.Environment (getArgs)
+import Prelude (IO, id, (.), ($))
 import Data.Aeson (encode)
 import Codec.Serialise (deserialise)
 import qualified Data.ByteString.Lazy as L
-
-import Gargantext.API.Ngrams.Types (NgramsRepo)
+import Gargantext.Core.NodeStory (NodeListStory)
 
 main :: IO ()
-main = L.interact (encode . (id :: NgramsRepo -> NgramsRepo) . deserialise)
+main = do
+  [inFile,outFile] <- getArgs
+  inData <- L.readFile inFile
+  let outData = (encode . (id :: NodeListStory -> NodeListStory) . deserialise) inData
+  L.writeFile outData

package.yaml

@@ -400,22 +400,22 @@ executables:
       - base
 
 
-#  gargantext-cbor2json:
-#    main: Main.hs
-#    source-dirs: bin/gargantext-cbor2json
-#    ghc-options:
-#    - -threaded
-#    - -rtsopts
-#    - -with-rtsopts=-N
-#    - -O2
-#    - -Wmissing-signatures
-#    dependencies:
-#      - gargantext
-#      - gargantext-prelude
-#      - base
-#      - bytestring
-#      - aeson
-#      - serialise
+  gargantext-cbor2json:
+    main: Main.hs
+    source-dirs: bin/gargantext-cbor2json
+    ghc-options:
+    - -threaded
+    - -rtsopts
+    - -with-rtsopts=-N
+    - -O2
+    - -Wmissing-signatures
+    dependencies:
+      - gargantext
+      - gargantext-prelude
+      - base
+      - bytestring
+      - aeson
+      - serialise
 
 
 tests: