add a lua version

filter.hs

@@ -6,15 +6,14 @@ import qualified Data.Text as T
 
 file2Block :: FilePath -> IO [Block]
 file2Block f = do
-  contents <- TIO.readFile f
-  return [Plain [Str contents]]
+    contents <- TIO.readFile f
+    return [Plain [Str contents]]
 
 doInclude :: Block -> IO Block
 doInclude cb@(Div (id, classes, namevals) contents) =
-  case lookup (T.pack "include") namevals of
-       Just f     -> Div (id, classes, namevals) <$>
-                      file2Block (T.unpack f)
-       Nothing    -> return cb
+    case lookup (T.pack "include") namevals of
+    Just f  -> Div (id, classes, namevals) <$> file2Block (T.unpack f)
+    Nothing -> return cb
 doInclude x = return x
 
 main :: IO ()