config.dhall

@@ -1,8 +1,7 @@
 { sealImagesPath = "images"
 , postsOutputPath = "posts"
-, startDate = 1959-01-15
-, seed = +2016
-, fileExtension = "md"
+, startDate = 2022-01-01
+, seed = +137
 , adjectives1 =
   [ "absorbing"
   , "adorable"

flake.nix

@@ -35,8 +35,6 @@
               ghc'
               hlint
               haskell-language-server
-
-              dhall-lsp-server
             ];
         };
       });

generateSealPosts.hs

@@ -30,7 +30,6 @@ import           System.Random      (Random (randoms), mkStdGen)
 data Config = Config
   { adjectives1     :: [Text]
   , adjectives2     :: [Text]
-  , fileExtension   :: String
   , looks           :: [Text]
   , sealImagesPath  :: FilePath
   , postsOutputPath :: FilePath
@@ -103,12 +102,11 @@ sealText config n rand date = ( fileName', bp )
          show date <> "-"
       <> "seal-post-"
       <> show n
-      <> "." <> fileExtension'
+      <> ".markdown"
     date'     = T.pack . show $ date
     title     = T.pack $ "Seal Post Number " <> show n
     title'    = T.replace " " "-" title
     sealImagesPath' = sealImagesPath config
-    fileExtension' = fileExtension config
 
     bp = blogPost' (toGregorian date)