Commit 669d0994 authored by Fabien Maniere's avatar Fabien Maniere

Update Corpus.hs

parent d6ea0735
...@@ -28,7 +28,7 @@ data Corpus = Corpus ...@@ -28,7 +28,7 @@ data Corpus = Corpus
L.makeLenses ''Corpus L.makeLenses ''Corpus
instance Default Corpus where instance Default Corpus where
def = Corpus "default Id" def def def def def def def def mempty def = Corpus "default Id" def def def def def def def def def mempty
instance FromJSON Corpus where instance FromJSON Corpus where
parseJSON = withObject "Corpus" $ \o -> do parseJSON = withObject "Corpus" $ \o -> do
......
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