OMS/tiedote.md
3
0
Fork 0
Code Issues 14 Pull Requests Projects Releases Wiki Activity

Lue vain .md-tiedostot tiedotteina

Browse Source 
Tämä on yksinkertainen ja nopea tapa estää tiedotejärjestelmää
tukehtumasta tietovarannosta löytyviin binääritiedostoihin, kuten
kuviin.
This commit is contained in:
Saku Laesvuori 2024-04-17 11:32:19 +03:00
parent dab82e12f5
commit 20775ae1d5
Signed by: slaesvuo
GPG Key ID: 257D284A2A1D3A32
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/TiedoteMD/Read.hs
View File

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