Commit 1b33d387 authored by Yoelis Acourt's avatar Yoelis Acourt

chore: remove unused code

parent 177695a1
......@@ -86,43 +86,6 @@ derive instance Generic DocumentV3 _
derive instance Newtype DocumentV3 _
derive newtype instance JSON.ReadForeign DocumentV3
derive newtype instance JSON.WriteForeign DocumentV3
instance Show DocumentV3 where
show = genericShow
defaultNodeDocumentV3 :: NodePoly DocumentV3
defaultNodeDocumentV3 =
NodePoly
{ id: 0
, typename: 0
, userId: 0
, parentId: Just 0
, name: "Default name"
, date: "Default date"
, hyperdata: defaultDocumentV3
}
defaultDocumentV3 :: DocumentV3
defaultDocumentV3 =
DocumentV3
{ abstract: Nothing
, authors: Nothing
--, error : Nothing
, language_iso2: Nothing
, language_iso3: Nothing
, language_name: Nothing
, publication_date: Nothing
, publication_day: Nothing
, publication_hour: Nothing
, publication_minute: Nothing
, publication_month: Nothing
, publication_second: Nothing
, publication_year: Nothing
, realdate_full_: Nothing
, source: Nothing
, statuses: Nothing
, title: Nothing
}
newtype Document =
Document
{ abstract :: Maybe String
......
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