diff options
author | Yann Herklotz <git@yannherklotz.com> | 2023-05-28 02:05:08 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2023-05-28 02:05:08 +0100 |
commit | 5681d073ee1ded65bcd944c6abc2c7082cff2b31 (patch) | |
tree | 986f9cbc62f39f53e5fb774bddcabac94897d9e7 | |
parent | 2783a33b0d4a9436343c88e1ed90fae03b8fb4bb (diff) | |
download | zk-visual-5681d073ee1ded65bcd944c6abc2c7082cff2b31.tar.gz zk-visual-5681d073ee1ded65bcd944c6abc2c7082cff2b31.zip |
Fix all warnings
-rw-r--r-- | src/Zettel/Common.hs | 5 | ||||
-rw-r--r-- | src/Zettel/Links.hs | 2 | ||||
-rw-r--r-- | 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 |