From 20775ae1d594f37d6772208976229cc531dd21bd Mon Sep 17 00:00:00 2001
From: Saku Laesvuori <saku@laesvuori.fi>
Date: Wed, 17 Apr 2024 11:32:19 +0300
Subject: [PATCH] Lue vain .md-tiedostot tiedotteina
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Tämä on yksinkertainen ja nopea tapa estää tiedotejärjestelmää
tukehtumasta tietovarannosta löytyviin binääritiedostoihin, kuten
kuviin.
---
 src/TiedoteMD/Read.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/TiedoteMD/Read.hs b/src/TiedoteMD/Read.hs
index 97e5d9c..ec52cd9 100644
--- a/src/TiedoteMD/Read.hs
+++ b/src/TiedoteMD/Read.hs
@@ -14,7 +14,7 @@ import Data.ByteString (ByteString)
 import Data.Default (def)
 import Data.Either (rights, lefts)
 import Data.FileStore (FileStore(..), gitFileStore)
-import Data.List (singleton)
+import Data.List (singleton, isSuffixOf)
 import Data.Text.Encoding (decodeUtf8, encodeUtf8)
 import Data.Time (UTCTime, zonedTimeToUTC)
 import Data.Time (getCurrentTime)
@@ -43,7 +43,7 @@ updateMessages acid repoPath =
 readMessageFiles :: FileStore -> IO [Message]
 readMessageFiles store = do
     files <- index store 
-    messages <- mapM (readMessageFile store) files
+    messages <- mapM (readMessageFile store) $ filter (".md" `isSuffixOf`) files
     mapM_ (T.putStrLn . renderError) $ lefts messages
     currentTime <- getCurrentTime
     print currentTime