From eea7483f30bf67b59b5df0f2823b831d26936aa4 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Sun, 28 May 2023 13:38:41 +0100 Subject: Fix imports --- src/Main.hs | 4 ++-- src/Zettel/Render.hs | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index 9619f7a..ae62335 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -22,11 +22,11 @@ module Main where -- import System.Directory (createDirectoryIfMissing) import Control.Exception (ioError) +import Control.Logging +import qualified Data.Text as T import System.Console.GetOpt import System.IO.Error (userError) import Zettel -import Control.Logging -import qualified Data.Text as T -- data HeaderState = HeaderState -- { headerStateMap :: Map Text ((ZettelId, Text), [Text]), diff --git a/src/Zettel/Render.hs b/src/Zettel/Render.hs index 8f9fbe5..1cdb4bd 100644 --- a/src/Zettel/Render.hs +++ b/src/Zettel/Render.hs @@ -2,6 +2,7 @@ module Zettel.Render where +import Control.Logging import Data.Default (def) import qualified Data.Map.Strict as Map import qualified Data.Text as T @@ -19,7 +20,6 @@ import Text.Pandoc.Templates (WithDefaultPartials (..), compileTemplate) import Text.Pandoc.Walk (query) import Text.Pandoc.Writers (writeMarkdown) import Zettel.Types -import Control.Logging zettelIdToLink :: ZettelId -> Inline zettelIdToLink ident = Link mempty [Str $ "#" <> unZettelId ident] ("/" <> unZettelId ident, "") -- cgit