API FIX

src/Isidore/Client.hs

@@ -100,7 +100,7 @@ data IsidoreDoc = IsidoreDoc
 
 
 data Reply = Replies { _docs :: [IsidoreDoc]}
-           | Reply   { _doc  :: IsidoreDoc}
+           | ReplyOnly   { _doc  :: IsidoreDoc}
   deriving (Show)
 
 instance FromJSON IsidoreDoc where
@@ -128,7 +128,7 @@ instance FromJSON Content where
 
 instance FromJSON Reply where
   parseJSON (Array os) = Replies <$> mapM parseJSON (V.toList os)
-  parseJSON o = Reply <$> parseJSON o
+  parseJSON o = ReplyOnly <$> parseJSON o
 
 
 data Output = JSON