summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorYann Herklotz <git@yannherklotz.com>2023-05-28 02:05:08 +0100
committerYann Herklotz <git@yannherklotz.com>2023-05-28 02:05:08 +0100
commit5681d073ee1ded65bcd944c6abc2c7082cff2b31 (patch)
tree986f9cbc62f39f53e5fb774bddcabac94897d9e7
parent2783a33b0d4a9436343c88e1ed90fae03b8fb4bb (diff)
downloadzk-visual-5681d073ee1ded65bcd944c6abc2c7082cff2b31.tar.gz
zk-visual-5681d073ee1ded65bcd944c6abc2c7082cff2b31.zip
Fix all warnings
-rw-r--r--src/Zettel/Common.hs5
-rw-r--r--src/Zettel/Links.hs2
-rw-r--r--src/Zettel/Types.hs4
3 files changed, 3 insertions, 8 deletions
diff --git a/src/Zettel/Common.hs b/src/Zettel/Common.hs
index c2fe81b..7b77417 100644
--- a/src/Zettel/Common.hs
+++ b/src/Zettel/Common.hs
@@ -3,15 +3,12 @@
module Zettel.Common where
import Data.Char (isAlphaNum, isLetter, isNumber)
-import Data.List (nub)
import qualified Data.Map.Strict as Map
import qualified Data.Text as T
import Data.Text.Read (decimal)
import Numeric (readInt, showIntAtBase)
import Text.Pandoc.Builder (HasMeta (..), ToMetaValue (..))
-import Text.Pandoc.Definition (Inline (..), MetaValue (..), Pandoc (..))
-import Text.Pandoc.Shared (stringify)
-import Text.Pandoc.Walk (query, walk)
+import Text.Pandoc.Definition (MetaValue (..), Pandoc (..))
import Zettel.Types
trySet :: (HasMeta a, ToMetaValue b) => Text -> Maybe b -> a -> a
diff --git a/src/Zettel/Links.hs b/src/Zettel/Links.hs
index bf5cc2d..3ac9a02 100644
--- a/src/Zettel/Links.hs
+++ b/src/Zettel/Links.hs
@@ -5,7 +5,7 @@ module Zettel.Links where
import Data.List (nub)
import qualified Data.Map.Strict as Map
import qualified Data.Text as T
-import Text.Pandoc.Definition (Inline (..), Pandoc (..))
+import Text.Pandoc.Definition (Inline (..))
import Text.Pandoc.Shared (stringify)
import Text.Pandoc.Walk (query, walk)
import Zettel.Common
diff --git a/src/Zettel/Types.hs b/src/Zettel/Types.hs
index 3b68ca9..1e8f750 100644
--- a/src/Zettel/Types.hs
+++ b/src/Zettel/Types.hs
@@ -18,7 +18,7 @@ module Zettel.Types
where
import Text.Pandoc.Builder (ToMetaValue (..))
-import Text.Pandoc.Definition (Block (..), Caption (..), Inline (..), Meta (..), MetaValue (..), Pandoc (..), Row (..), TableBody (..), TableFoot (..), TableHead (..))
+import Text.Pandoc.Definition (Block (..), Inline (..), Meta (..), MetaValue (..), Pandoc (..))
import Text.Pandoc.Walk (Walkable (..))
class Combine a where
@@ -188,5 +188,3 @@ instance Walkable MetaValue ZettelGraph where
instance Walkable [Inline] ZettelGraph where
walkM = walkMZettelGraph
query = queryZettelGraph
-
--- instance Walkable ZettelGraph