diff options
author | Yann Herklotz <git@yannherklotz.com> | 2023-05-28 13:38:41 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2023-05-28 13:38:41 +0100 |
commit | eea7483f30bf67b59b5df0f2823b831d26936aa4 (patch) | |
tree | 54680ebe1a636e8bef51202ed2d30d4202988b28 | |
parent | 14bd71dadd11153b57697b1d8b4fa69e5da1a05c (diff) | |
download | zk-visual-eea7483f30bf67b59b5df0f2823b831d26936aa4.tar.gz zk-visual-eea7483f30bf67b59b5df0f2823b831d26936aa4.zip |
Fix imports
-rw-r--r-- | src/Main.hs | 4 | ||||
-rw-r--r-- | 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, "") |