Skip to content

H
haskell-gargantext
Commit d8df0094 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

Merge branch 'dev' of ssh://gitlab.iscpif.fr:20022/gargantext/haskell-gargantext into dev

parents c8b38fb4 117f7ff2
Show whitespace changes
Inline Side-by-side
Showing with 2 additions and 1 deletion
src/Gargantext/API/Node/File.hs
View file @ d8df0094
...@@ -27,6 +27,7 @@ import Servant.Server.Internal ...@@ -27,6 +27,7 @@ import Servant.Server.Internal
import Gargantext.Prelude import Gargantext.Prelude
import qualified Gargantext.Prelude.Utils as GPU import qualified Gargantext.Prelude.Utils as GPU
import Gargantext.Core.Types (TODO)
import Gargantext.API.Admin.Orchestrator.Types (JobLog(..), AsyncJobs) import Gargantext.API.Admin.Orchestrator.Types (JobLog(..), AsyncJobs)
import Gargantext.API.Admin.Settings (HasSettings) import Gargantext.API.Admin.Settings (HasSettings)
import Gargantext.API.Node.Types import Gargantext.API.Node.Types
...@@ -65,7 +66,7 @@ newtype BSResponse = BSResponse BS.ByteString ...@@ -65,7 +66,7 @@ newtype BSResponse = BSResponse BS.ByteString
deriving (Generic) deriving (Generic)
instance ToSchema BSResponse where instance ToSchema BSResponse where
declareNamedSchema _ = declareNamedSchema (Proxy :: Proxy BSResponse) declareNamedSchema _ = declareNamedSchema (Proxy :: Proxy TODO)
fileDownload :: (HasSettings env, FlowCmdM env err m) fileDownload :: (HasSettings env, FlowCmdM env err m)
=> UserId => UserId
......
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