Commit f21c1f71 authored by Alexandre Delanoë's avatar Alexandre Delanoë

Merge remote-tracking branch 'origin/592-dev-document-upload-abstract' into dev

parents 9b1b869c 956d34bb
...@@ -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