tweak

zachary822 · Nov 24, 2024 · c28026b · c28026b
1 parent ddc00e3
commit c28026b
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/app/Main.hs b/app/Main.hs
@@ -1,5 +1,6 @@
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE TemplateHaskell #-}
 
 module Main where
 
@@ -161,8 +162,7 @@ main = do
 
         runDb
           "blog"
-          ( find (select (getPost pid) "posts") >>= M.rest
-          )
+          (find (select (getPost pid) "posts") >>= M.rest)
           >>= \case
             [] -> do
               status status404
@@ -204,8 +204,8 @@ main = do
           H.h2 "Tags"
           H.ul $
             forM_ (tags summary) $ \t -> do
+              let tagUrl = fromString . T.unpack $ "/posts/tags/" <> tagName t
               H.li $ do
-                let tagUrl = fromString . T.unpack $ "/posts/tags/" <> tagName t
                 H.a
                   H.! A.href tagUrl
                   H.! hx PushUrl "true"

diff --git a/dev_server.sh b/dev_server.sh
@@ -8,7 +8,8 @@ sigint_handler()
 
 trap sigint_handler SIGINT
 
-while true; do
+while true;
+do
   $@ &
   PID=$!
   fswatch -1 app/ *.cabal

diff --git a/haskell-blog.cabal b/haskell-blog.cabal
@@ -51,7 +51,7 @@ extra-doc-files:    CHANGELOG.md
 -- extra-source-files:
 
 common warnings
-    ghc-options: -Wall -Wunused-packages
+    ghc-options: -Wall
 
 executable haskell-blog
     -- Import common warning flags.
@@ -92,7 +92,6 @@ executable haskell-blog
                       directory,
                       pandoc,
                       pandoc-types,
-                      template-haskell,
                       unix,
                       time,
                       transformers,