Skip to content

H
haskell-gargantext
Commit 3f3886d7 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[List] fix Content-Disposition

parent 70d1281d
Show whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
src/Gargantext/API/Ngrams/List.hs
View file @ 3f3886d7
...@@ -46,7 +46,7 @@ instance ToJSON a => MimeRender HTML a where ...@@ -46,7 +46,7 @@ instance ToJSON a => MimeRender HTML a where
type API = Get '[JSON] NgramsList type API = Get '[JSON] NgramsList
:<|> ReqBody '[JSON] NgramsList :> Put '[JSON] Bool :<|> ReqBody '[JSON] NgramsList :> Put '[JSON] Bool
:<|> Get '[HTML] (Headers '[Header "Content-Type" String] NgramsList) :<|> Get '[HTML] (Headers '[Header "Content-Disposition" String] NgramsList)
api :: ListId -> GargServer API api :: ListId -> GargServer API
api l = get l :<|> put l :<|> getHtml l api l = get l :<|> put l :<|> getHtml l
...@@ -58,7 +58,7 @@ get lId = fromList ...@@ -58,7 +58,7 @@ get lId = fromList
<$> mapM (getNgramsTableMap lId) ngramsTypes <$> mapM (getNgramsTableMap lId) ngramsTypes
getHtml :: RepoCmdM env err m getHtml :: RepoCmdM env err m
=> ListId -> m (Headers '[Header "Content-Type" String] NgramsList) => ListId -> m (Headers '[Header "Content-Disposition" String] NgramsList)
getHtml lId = do getHtml lId = do
lst <- get lId lst <- get lId
return $ addHeader "attachment" lst return $ addHeader "attachment" lst
......
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