From 5681d073ee1ded65bcd944c6abc2c7082cff2b31 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Sun, 28 May 2023 02:05:08 +0100 Subject: Fix all warnings --- src/Zettel/Common.hs | 5 +---- src/Zettel/Links.hs | 2 +- src/Zettel/Types.hs | 4 +--- 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 -- cgit