Merge branch 'dev' into dev-hackathon-fixes
[gargantext.git] / src / Gargantext / API / HashedResponse.hs
index 1f2fd9ee8d294ceb8fdc0a49893e954fb75b18a9..157806b27fa3ec4d8ba48f85899371624e36f8c3 100644 (file)
@@ -14,10 +14,10 @@ module Gargantext.API.HashedResponse where
 import Data.Aeson
 import Data.Swagger
 import Data.Text (Text)
+import GHC.Generics (Generic)
 
 import Gargantext.Prelude
-import qualified Gargantext.Core.Crypto.Hash as Crypto (hash)
-import GHC.Generics (Generic)
+import qualified Gargantext.Prelude.Crypto.Hash as Crypto (hash)
 
 data HashedResponse a = HashedResponse { hash :: Text, value :: a }
   deriving (Generic)
@@ -25,6 +25,8 @@ data HashedResponse a = HashedResponse { hash :: Text, value :: a }
 instance ToSchema a => ToSchema (HashedResponse a)
 instance ToJSON a => ToJSON (HashedResponse a) where
   toJSON = genericToJSON defaultOptions
+instance FromJSON a => FromJSON (HashedResponse a) where
+  parseJSON = genericParseJSON defaultOptions
 
 constructHashedResponse :: ToJSON a => a -> HashedResponse a
 constructHashedResponse v = HashedResponse { hash = Crypto.hash $ encode v, value = v }