Commit cc55c48b authored by Nicolas Pouillard's avatar Nicolas Pouillard

Merge branch 'dev-doc-annotation-issue' of...

Merge branch 'dev-doc-annotation-issue' of https://gitlab.iscpif.fr/gargantext/haskell-gargantext into dev-doc-annotation-issue
parents 474c1abe dc0829d8
Pipeline #1025 failed with stage
......@@ -180,13 +180,13 @@ repoDir :: FilePath
repoDir = "repos"
repoSnapshot :: FilePath
repoSnapshot = repoDir <> "/repo.json"
repoSnapshot = repoDir <> "/repo.cbor"
-- | TODO add hard coded file in Settings
-- This assumes we own the lock on repoSnapshot.
repoSaverAction :: Serialise a => a -> IO ()
repoSaverAction a = do
withTempFile "repos" "tmp-repo.json" $ \fp h -> do
withTempFile "repos" "tmp-repo.cbor" $ \fp h -> do
printDebug "repoSaverAction" fp
L.hPut h $ serialise a
hClose h
......
......@@ -152,12 +152,6 @@ selectGroup cId aId q = proc () -> do
returnA -< FacetPaired a b c d
queryContactViaDoc :: O.Query ( NodeSearchRead
, ( NodeNodeReadNull
, ( NodeNodeReadNull
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment