install files properly

1 files changed, 9 insertions, 6 deletions

diff --git a/Utils.hs b/Utils.hs
index c220cb7..ea0b1ec 100644
--- a/Utils.hs
+++ b/Utils.hs
@@ -3,9 +3,9 @@ module Utils where
 import Control.Monad.IO.Class
 import Data.List.Extra (stripSuffix)
 import Data.Maybe (isJust)
+import qualified Data.Text as T
 import Text.Pandoc.Definition
 import qualified Text.Pandoc.Walk
-import qualified Data.Text as T
 
 import Types
 
@@ -27,13 +27,16 @@ second :: (a -> b) -> (c, a) -> (c, b)
 second f (a, b) = (a, f b)
 
 -- | A pandoc walker for modifying the URLs.
-walkURLs :: (FilePath -> Site FilePath) -> Text.Pandoc.Definition.Pandoc -> Site Text.Pandoc.Definition.Pandoc
+walkURLs ::
+     (FilePath -> Site FilePath)
+  -> Text.Pandoc.Definition.Pandoc
+  -> Site Text.Pandoc.Definition.Pandoc
 walkURLs f = Text.Pandoc.Walk.walkM go
   where
-    go (Link a i (u,t)) = do
+    go (Link a i (u, t)) = do
       u' <- T.pack <$> f (T.unpack u)
-      pure $ Link a i (u',t)
-    go (Image a i (u,t)) = do
+      pure $ Link a i (u', t)
+    go (Image a i (u, t)) = do
       u' <- T.pack <$> f (T.unpack u)
-      pure $ Image a i (u',t)
+      pure $ Image a i (u', t)
     go x = pure x