diff options
-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, "") |