Skip to content

I
isidore
Commit e3945410 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

API FIX

parent 3e7dd48c
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
src/Isidore/Client.hs
View file @ e3945410
...@@ -100,7 +100,7 @@ data IsidoreDoc = IsidoreDoc ...@@ -100,7 +100,7 @@ data IsidoreDoc = IsidoreDoc
data Reply = Replies { _docs :: [IsidoreDoc]} data Reply = Replies { _docs :: [IsidoreDoc]}
| Reply { _doc :: IsidoreDoc} | ReplyOnly { _doc :: IsidoreDoc}
deriving (Show) deriving (Show)
instance FromJSON IsidoreDoc where instance FromJSON IsidoreDoc where
...@@ -128,7 +128,7 @@ instance FromJSON Content where ...@@ -128,7 +128,7 @@ instance FromJSON Content where
instance FromJSON Reply where instance FromJSON Reply where
parseJSON (Array os) = Replies <$> mapM parseJSON (V.toList os) parseJSON (Array os) = Replies <$> mapM parseJSON (V.toList os)
parseJSON o = Reply <$> parseJSON o parseJSON o = ReplyOnly <$> parseJSON o
data Output = JSON data Output = JSON
......
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