[FIX] API upload

CHANGELOG.md

@@ -3,6 +3,7 @@
 * [FRONT][FIX][Editor codtype change (#145)](https://gitlab.iscpif.fr/gargantext/purescript-gargantext/issues/145)
 * [BACK][FIX][Conduit insert with batch of documents in db (#161)](https://gitlab.iscpif.fr/gargantext/haskell-gargantext/issues/161)
 * [BACK][FIX] API: HAL, PUBMED
+* [BACK][FIX] API: Upload file with options
 
 ## Version 0.0.6.8.5.9.3
 

gargantext.cabal

@@ -5,7 +5,7 @@ cabal-version: 1.12
 -- see: https://github.com/sol/hpack
 
 name:           gargantext
-version: 0.0.6.8.5.9.4
+version:        0.0.6.8.5.9.4
 synopsis:       Search, map, share
 description:    Please see README.md
 category:       Data

src/Gargantext/Core/Text/List/Social.hs

@@ -76,15 +76,15 @@ instance ToSchema FlowSocialListWith where
   declareNamedSchema = genericDeclareNamedSchema defaultSchemaOptions
 instance FromHttpApiData FlowSocialListWith
   where
-    parseUrlPiece "MyListsFirst"    = pure $ FlowSocialListWithPriority { fslw_priority = MySelfFirst }
-    parseUrlPiece "OtherListsFirst" = pure $ FlowSocialListWithPriority { fslw_priority = OthersFirst }
+    parseUrlPiece "My lists first"    = pure $ FlowSocialListWithPriority { fslw_priority = MySelfFirst }
+    parseUrlPiece "Others lists first" = pure $ FlowSocialListWithPriority { fslw_priority = OthersFirst }
     parseUrlPiece "NoList"          = pure $ NoList True
-    parseUrlPiece _                 = panic "[G.C.T.L.Social] TODO FromHttpApiData FlowSocialListWith"
+    parseUrlPiece x                 = panic $ "[G.C.T.L.Social] TODO FromHttpApiData FlowSocialListWith error: " <> (cs $ show x)
 
 instance ToHttpApiData   FlowSocialListWith where
     toUrlPiece (FlowSocialListWithPriority  MySelfFirst) = "MySelfFirst"
     toUrlPiece (FlowSocialListWithPriority  OthersFirst) = "OtherListsFirst"
-    toUrlPiece (NoList _) = "NoList" 
+    toUrlPiece (NoList _) = "NoList"
     toUrlPiece (FlowSocialListWithLists _)  = panic "[G.C.T.L.Social] TODO ToHttpApiData FlowSocialListWith"
 
 data FlowSocialListPriority = MySelfFirst | OthersFirst