hlint suggestions.

6 files changed, 3 insertions, 8 deletions

diff --git a/pandoc-lua-engine/src/Text/Pandoc/Lua.hs b/pandoc-lua-engine/src/Text/Pandoc/Lua.hs
index d6134fc01..8ff9a7c64 100644
--- a/pandoc-lua-engine/src/Text/Pandoc/Lua.hs
+++ b/pandoc-lua-engine/src/Text/Pandoc/Lua.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE LambdaCase        #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE TypeApplications  #-}
 {- |
diff --git a/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/Format.hs b/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/Format.hs
index 377ce159b..39b1b98a0 100644
--- a/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/Format.hs
+++ b/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/Format.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE LambdaCase           #-}
-{-# LANGUAGE OverloadedStrings    #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 {- |
    Module      : Text.Pandoc.Lua.Marshaling.Format
diff --git a/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/PandocError.hs b/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/PandocError.hs
index c9721a53d..fe4227c5c 100644
--- a/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/PandocError.hs
+++ b/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/PandocError.hs
@@ -1,7 +1,6 @@
 {-# LANGUAGE LambdaCase           #-}
 {-# LANGUAGE OverloadedStrings    #-}
 {-# LANGUAGE ScopedTypeVariables  #-}
-{-# LANGUAGE TypeApplications     #-}
 {- |
    Module      : Text.Pandoc.Lua.Marshal.PandocError
    Copyright   : © 2020-2022 Albert Krewinkel
diff --git a/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/Template.hs b/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/Template.hs
index 5425a566c..71134c03f 100644
--- a/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/Template.hs
+++ b/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/Template.hs
@@ -33,7 +33,7 @@ peekTemplate idx = liftLua (ltype idx) >>= \case
     let path = "templates/default.custom"
     let liftPM = liftLua . unPandocLua
     tmpl <- peekText idx
-    (liftPM $ runWithDefaultPartials (compileTemplate path tmpl)) >>= \case
+    liftPM (runWithDefaultPartials (compileTemplate path tmpl)) >>= \case
       Left e  -> failPeek (Lua.fromString e)
       Right t -> pure t
   _ -> peekUD typeTemplate idx
diff --git a/pandoc-lua-engine/src/Text/Pandoc/Lua/Writer/Classic.hs b/pandoc-lua-engine/src/Text/Pandoc/Lua/Writer/Classic.hs
index 522bdb651..016d453ca 100644
--- a/pandoc-lua-engine/src/Text/Pandoc/Lua/Writer/Classic.hs
+++ b/pandoc-lua-engine/src/Text/Pandoc/Lua/Writer/Classic.hs
@@ -69,7 +69,7 @@ instance Pushable (Stringify MetaValue) where
   push (Stringify (MetaBlocks bs))   = Lua.push (Stringify bs)
 
 instance Pushable (Stringify Citation) where
-  push (Stringify cit) = flip pushAsTable cit
+  push (Stringify cit) = pushAsTable
     [ ("citationId", push . citationId)
     , ("citationPrefix",  push . Stringify . citationPrefix)
     , ("citationSuffix",  push . Stringify . citationSuffix)
@@ -77,6 +77,7 @@ instance Pushable (Stringify Citation) where
     , ("citationNoteNum", push . citationNoteNum)
     , ("citationHash",    push . citationHash)
     ]
+    cit
 
 -- | Key-value pair, pushed as a table with @a@ as the only key and @v@ as the
 -- associated value.
diff --git a/pandoc-lua-engine/src/Text/Pandoc/Lua/Writer/Scaffolding.hs b/pandoc-lua-engine/src/Text/Pandoc/Lua/Writer/Scaffolding.hs
index 6a3fb184e..95ce23c0d 100644
--- a/pandoc-lua-engine/src/Text/Pandoc/Lua/Writer/Scaffolding.hs
+++ b/pandoc-lua-engine/src/Text/Pandoc/Lua/Writer/Scaffolding.hs
@@ -1,7 +1,5 @@
 {-# LANGUAGE LambdaCase          #-}
 {-# LANGUAGE OverloadedStrings   #-}
-{-# LANGUAGE TupleSections       #-}
-{-# LANGUAGE TypeApplications    #-}
 {- |
    Module      : Text.Pandoc.Lua.Writer.Scaffolding
    Copyright   : © 2022 Albert Krewinkel