Lue vain .md-tiedostot tiedotteina

Tämä on yksinkertainen ja nopea tapa estää tiedotejärjestelmää
tukehtumasta tietovarannosta löytyviin binääritiedostoihin, kuten
kuviin.

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