Skip to content

H
hal
Commit 669d0994 authored by Fabien Maniere's avatar Fabien Maniere
Browse files
Options

Update Corpus.hs

parent d6ea0735
Show whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
src/HAL/Doc/Corpus.hs
View file @ 669d0994
...@@ -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