Commit 956d34bb authored by Karen Konou's avatar Karen Konou

[Doc upload] include numbers in generating hashes

parent bec99432
...@@ -58,7 +58,7 @@ import Control.Lens (set, view) ...@@ -58,7 +58,7 @@ import Control.Lens (set, view)
import Control.Lens.Cons import Control.Lens.Cons
import Control.Lens.Prism import Control.Lens.Prism
import Data.Aeson (toJSON, ToJSON) import Data.Aeson (toJSON, ToJSON)
import Data.Char (isAlpha) import Data.Char (isAlphaNum)
import Data.Maybe (fromMaybe) import Data.Maybe (fromMaybe)
import Data.Text (Text) import Data.Text (Text)
-- import Data.ByteString (ByteString) -- import Data.ByteString (ByteString)
...@@ -233,7 +233,7 @@ instance UniqParameters (Node a) ...@@ -233,7 +233,7 @@ instance UniqParameters (Node a)
filterText :: Text -> Text filterText :: Text -> Text
filterText = DT.toLower . (DT.filter isAlpha) filterText = DT.toLower . (DT.filter isAlphaNum)
instance (UniqParameters a, ToJSON a, HasDBid NodeType) => AddUniqId (Node a) instance (UniqParameters a, ToJSON a, HasDBid NodeType) => AddUniqId (Node a)
......
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