TexasMynsted.hs

import System.IO (readFile)
import System.Directory (getDirectoryContents)
import System.FilePath.Posix (takeExtension)
import Control.Monad (filterM)
import Data.List (isInfixOf)

isUnpublished :: String -> Bool
isUnpublished = ("isUnpublished=true" `isInfixOf`)

isUnpublishedFile :: FilePath -> IO Bool
isUnpublishedFile filePath = do
  contents <- readFile filePath
  pure (isUnpublished contents)

go = do
  allFiles <- getDirectoryContents "."
  let markdownFiles = filter ((".md" ==) . takeExtension) allFiles
  unpublishedFiles <- filterM isUnpublishedFile markdownFiles
  pure unpublishedFiles

TexasMynstedBS.hs

{-# LANGUAGE OverloadedStrings #-}

import           Control.Monad (filterM)
import qualified Data.ByteString as BS
import           Data.ByteString (ByteString)
import           System.Directory (getDirectoryContents)
import           System.FilePath.Posix (takeExtension)

isUnpublished :: ByteString -> Bool
isUnpublished = ("isUnpublished=true" `BS.isInfixOf`)

isUnpublishedFile :: FilePath -> IO Bool
isUnpublishedFile filePath = do
  contents <- BS.readFile filePath
  pure (isUnpublished contents)

go = do
  allFiles <- getDirectoryContents "."
  let markdownFiles = filter ((".md" ==) . takeExtension) allFiles
  unpublishedFiles <- filterM isUnpublishedFile markdownFiles
  pure unpublishedFiles

TexasMynstedShorter.hs

{-# LANGUAGE OverloadedStrings #-}

import           Control.Monad (filterM)
import qualified Data.ByteString as BS
import           Data.ByteString (ByteString)
import           System.Directory (getDirectoryContents)
import           System.FilePath.Posix (takeExtension)

isUnpublished :: ByteString -> Bool
isUnpublished = ("isUnpublished=true" `BS.isInfixOf`)

isUnpublishedFile :: FilePath -> IO Bool
isUnpublishedFile = fmap isUnpublished . BS.readFile

isMarkdownFile :: FilePath -> Bool
isMarkdownFile = (".md" ==) . takeExtension

isUnpublishedMarkdownFile :: FilePath -> IO Bool
isUnpublishedMarkdownFile filePath =
  if isMarkdownFile filePath
  then isUnpublishedFile filePath
  else pure False

go = getDirectoryContents "." >>= filterM isUnpublishedMarkdownFile