diff --git a/src/Gargantext/Database/Types/Node.hs b/src/Gargantext/Database/Types/Node.hs index a2edff2c344b76006a57749f05a7219e2a388e73..06a924d695ba4eac2ab91156ce9558d97cb4ae64 100644 --- a/src/Gargantext/Database/Types/Node.hs +++ b/src/Gargantext/Database/Types/Node.hs @@ -31,6 +31,7 @@ import GHC.Generics (Generic) import Control.Lens hiding (elements) import qualified Control.Lens as L import Control.Applicative ((<*>)) +import Control.Monad (mzero) import Data.Aeson import Data.Aeson.Types (emptyObject) @@ -57,7 +58,7 @@ import Test.QuickCheck (elements) import Gargantext.Prelude import Gargantext.Core.Utils.Prefix (unPrefix) -import Gargantext.Database.Utils +--import Gargantext.Database.Utils ------------------------------------------------------------------------ newtype NodeId = NodeId Int deriving (Show, Read, Generic, Num, Eq, Ord, Enum) @@ -66,7 +67,10 @@ instance ToField NodeId where toField (NodeId n) = toField n instance FromField NodeId where - fromField = fromField' + fromField field mdata = do + n <- fromField field mdata + if (n :: Int) > 0 then return $ NodeId n + else mzero instance ToJSON NodeId instance FromJSON NodeId