1 files changed, 4 insertions, 3 deletions
diff --git a/src/Zettel/Transclusion.hs b/src/Zettel/Transclusion.hs
index c9f41cb..27d4429 100644
--- a/src/Zettel/Transclusion.hs
+++ b/src/Zettel/Transclusion.hs
@@ -5,7 +5,7 @@ module Zettel.Transclusion where
 import Data.Map.Strict ((!?))
 import qualified Data.Text as T
 import Text.Pandoc.Definition (Block (..), Inline (..), Pandoc (..))
-import Text.Pandoc.Walk (walk, query)
+import Text.Pandoc.Walk (query, walk)
 import Zettel.Common
 import Zettel.Types
 
@@ -80,8 +80,9 @@ transcludeMd zg depth p = walk (transcludeRawBlockWith f) p
   where
     f ident level =
       concatMap
-        ( (\(Pandoc _ b) ->
-             wrapTransclude (maybe depth (subtract $ floorLvl - 1) level) ident b)
+        ( ( \(Pandoc _ b) ->
+              wrapTransclude (maybe depth (subtract $ floorLvl - 1) level) ident b
+          )
             . transcludeMd zg (depth + 1)
             . zettelBody
         )