diff --git a/test/Neuron/Zettelkasten/Query/ParserSpec.hs b/test/Neuron/Zettelkasten/Query/ParserSpec.hs index 54583f25f..aa816e588 100644 --- a/test/Neuron/Zettelkasten/Query/ParserSpec.hs +++ b/test/Neuron/Zettelkasten/Query/ParserSpec.hs @@ -10,6 +10,7 @@ where import Data.Default (def) import Data.Some import Data.TagTree +import Neuron.Markdown import Neuron.Zettelkasten.Connection import Neuron.Zettelkasten.ID import Neuron.Zettelkasten.Query @@ -17,7 +18,6 @@ import Neuron.Zettelkasten.Query.Parser import Neuron.Zettelkasten.Query.Theme import Relude import Test.Hspec -import Text.MMark.MarkdownLink import Text.URI spec :: Spec diff --git a/test/Neuron/Zettelkasten/ZettelSpec.hs b/test/Neuron/Zettelkasten/ZettelSpec.hs index 4c5e5856c..13367bbb8 100644 --- a/test/Neuron/Zettelkasten/ZettelSpec.hs +++ b/test/Neuron/Zettelkasten/ZettelSpec.hs @@ -10,17 +10,18 @@ where import Data.Aeson import Data.TagTree import Data.Time.Calendar +import Neuron.Markdown import Neuron.Zettelkasten.ID import Neuron.Zettelkasten.Zettel +import Neuron.Zettelkasten.Zettel.Meta (Meta) import Relude -import Rib.Parser.MMark (parsePure) import Test.Hspec spec :: Spec spec = do describe "sortZettelsReverseChronological" $ do let mkDay = fromGregorian 2020 3 - dummyContent = either error id $ parsePure "" "Dummy" + (_ :: Meta, dummyContent) = either error id $ parseMarkdown "" "Dummy" mkZettel day idx = Zettel (ZettelDateID (mkDay day) idx) "Some title" [Tag "science", Tag "journal/class"] (Just $ mkDay day) dummyContent it "sorts correctly" $ do @@ -30,7 +31,7 @@ spec = do describe "Zettel JSON" $ do let day = fromGregorian 2020 3 19 zid = ZettelCustomID "Foo-Bar" - dummyContent = either error id $ parsePure "" "Dummy" + (_ :: Meta, dummyContent) = either error id $ parseMarkdown "" "Dummy" zettel = Zettel zid "Some title" [Tag "science", Tag "journal/class"] (Just day) dummyContent it "Produces expected json" $ do -- "{\"id\":\"2011401\",\"title\":\"Some title\",\"tags\":[\"science\"]}"