minor cleanup

app/HTML.hs

@@ -0,0 +1,9 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module HTML (compileToHTML) where
+
+import Data.Text
+import IR
+
+compileToHTML :: Document -> Text
+compileToHTML = const ""

app/Main.hs

@@ -148,8 +148,7 @@ rss =
 -- Shake.putInfo $ "Built " <> target
 
 readPost :: FilePath -> Action Post
-readPost postPath = do
+readPost postPath = case FP.takeExtension postPath of
-  case FP.takeExtension postPath of
   ".md" -> readMarkdownPost postPath
   _ -> error $ "unknown file extension for file" <> postPath