Horhik/timecodeg
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Write timecodes to file

Browse source
This commit is contained in:
horhik 2022-02-10 10:24:54 +03:00
parent 6969f8db3f
commit 54e57b4df0
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Main.hs
View file

@ -11,7 +11,7 @@ import Data.List.Split
import Data.Algorithm.Diff import Data.Algorithm.Diff
import Data.Algorithm.DiffOutput import Data.Algorithm.DiffOutput
import Data.ByteString.Lazy.UTF8 (toString) import Data.ByteString.Lazy.UTF8 (toString)
import System.IO
data GeneratorState = IsRunning | IsFinished data GeneratorState = IsRunning | IsFinished
deriving (Eq) deriving (Eq)
@ -43,10 +43,11 @@ myFormatDiffTime (a,b)= formatTime defaultTimeLocale "%H:%M:%S" . posixSecondsTo
-- Printing changes is they exsists -- Printing changes is they exsists
genOutput :: Maybe String -> String -> IO () genOutput :: Maybe String -> String -> IO ()
genOutput (Just changes) time = do genOutput (Just changes) time = do
putStrLn $ time ++ "\n " ++ changes file <- openFile "timecodes.md" AppendMode
hPutStrLn file $ time ++ "\n " ++ changes
genOutput Nothing _ = return() genOutput Nothing _ = return()
-- Returning fetched url as a string separated by \n
fetchFile :: String -> IO [String] fetchFile :: String -> IO [String]
fetchFile url = do fetchFile url = do
html <- simpleHttp url html <- simpleHttp url