[REFACT] HasDBid
[gargantext.git] / src / Gargantext / Core / Utils / Prefix.hs
index 5d7d980f2e39d8e9263e8897226d732cf243a0d0..2662b7694466507c0809ba7a3ff0e8f5dcc28d60 100644 (file)
@@ -20,13 +20,12 @@ module Gargantext.Core.Utils.Prefix
 import Prelude
 
 import Data.Aeson (Value, defaultOptions, parseJSON)
-import Data.Aeson.TH (Options, fieldLabelModifier, omitNothingFields)
+import Data.Aeson.TH (Options, fieldLabelModifier, omitNothingFields, sumEncoding, SumEncoding(UntaggedValue))
 import Data.Aeson.Types (Parser)
 import Data.Char (toLower)
-import Data.Monoid ((<>))
 import Data.Swagger.SchemaOptions (SchemaOptions, fromAesonOptions)
 import Servant.Job.Utils (wellNamedSchema)
-import Text.Read (Read(..),readMaybe)
+import Text.Read (readMaybe)
 
 
 -- | Aeson Options that remove the prefix from fields
@@ -36,6 +35,10 @@ unPrefix prefix = defaultOptions
   , omitNothingFields = True
   }
 
+unPrefixUntagged :: String -> Options
+unPrefixUntagged prefix = (unPrefix prefix)
+  { sumEncoding = UntaggedValue }
+
 unPrefixSwagger :: String -> SchemaOptions
 unPrefixSwagger = fromAesonOptions . unPrefix