cosmetics

src/HAL/Doc/Corpus.hs

@@ -15,20 +15,19 @@ import Text.Read (readMaybe)
 import Servant.API (ToHttpApiData(..))
 
 data Corpus = Corpus
-  {
-    _corpus_docid :: Text,
-    _corpus_title :: [Text],
-    _corpus_abstract :: [Text],
-    _corpus_date :: Maybe Text,
-    _corpus_source :: Maybe Text,
-    _corpus_authors_names :: [Text],
-    _corpus_authors_affiliations :: [Text],
-    _corpus_struct_id :: [Int]
+  { _corpus_docid         :: Text
+  , _corpus_title         :: [Text]
+  , _corpus_abstract      :: [Text]
+  , _corpus_date          :: Maybe Text
+  , _corpus_source        :: Maybe Text
+  , _corpus_authors_names :: [Text]
+  , _corpus_authors_affiliations :: [Text]
+  , _corpus_struct_id     :: [Int]
   } deriving (Show, Generic)
 L.makeLenses ''Corpus
 
 instance Default Corpus where
-  def = Corpus "" def def def def def def def
+  def = Corpus "default Id" def def def def def def def
 
 instance FromJSON Corpus where
   parseJSON (Object o) =