summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorYann Herklotz <git@yannherklotz.com>2023-05-28 13:38:41 +0100
committerYann Herklotz <git@yannherklotz.com>2023-05-28 13:38:41 +0100
commiteea7483f30bf67b59b5df0f2823b831d26936aa4 (patch)
tree54680ebe1a636e8bef51202ed2d30d4202988b28
parent14bd71dadd11153b57697b1d8b4fa69e5da1a05c (diff)
downloadzk-visual-eea7483f30bf67b59b5df0f2823b831d26936aa4.tar.gz
zk-visual-eea7483f30bf67b59b5df0f2823b831d26936aa4.zip
Fix imports
-rw-r--r--src/Main.hs4
-rw-r--r--src/Zettel/Render.hs2
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, "")