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 ...@@ -180,13 +180,13 @@ repoDir :: FilePath
repoDir = "repos" repoDir = "repos"
repoSnapshot :: FilePath repoSnapshot :: FilePath
repoSnapshot = repoDir <> "/repo.json" repoSnapshot = repoDir <> "/repo.cbor"
-- | TODO add hard coded file in Settings -- | TODO add hard coded file in Settings
-- This assumes we own the lock on repoSnapshot. -- This assumes we own the lock on repoSnapshot.
repoSaverAction :: Serialise a => a -> IO () repoSaverAction :: Serialise a => a -> IO ()
repoSaverAction a = do repoSaverAction a = do
withTempFile "repos" "tmp-repo.json" $ \fp h -> do withTempFile "repos" "tmp-repo.cbor" $ \fp h -> do
printDebug "repoSaverAction" fp printDebug "repoSaverAction" fp
L.hPut h $ serialise a L.hPut h $ serialise a
hClose h hClose h
......
...@@ -152,12 +152,6 @@ selectGroup cId aId q = proc () -> do ...@@ -152,12 +152,6 @@ selectGroup cId aId q = proc () -> do
returnA -< FacetPaired a b c d returnA -< FacetPaired a b c d
queryContactViaDoc :: O.Query ( NodeSearchRead queryContactViaDoc :: O.Query ( NodeSearchRead
, ( NodeNodeReadNull , ( NodeNodeReadNull
, ( 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