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

prints only changed lines

Browse source
This commit is contained in:
horhik 2022-02-08 22:44:40 +03:00
parent 26ce916e80
commit bc8b37cfd4
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Main.hs
View file

@ -13,6 +13,10 @@ import Data.Algorithm.DiffOutput
data GeneratorState = IsRunning | IsFinished data GeneratorState = IsRunning | IsFinished
deriving (Eq) deriving (Eq)
getChanges :: Diff f -> Bool
getChanges (First _) = True
getChanges _ = False
showRunning html = IsRunning showRunning html = IsRunning
getCheckBoxList html = html getCheckBoxList html = html
@ -22,7 +26,7 @@ timecodeGenerator IsFinished _ _ = return ()
timecodeGenerator IsRunning text time = do timecodeGenerator IsRunning text time = do
html <- simpleHttp "https://hd.socks.town/s/h0jnEJQWy/download" html <- simpleHttp "https://hd.socks.town/s/h0jnEJQWy/download"
let body = (splitOn ("\n")) . L8.unpack $ html let body = (splitOn ("\n")) . L8.unpack $ html
print $ getDiff body text print $ filter getChanges $ getDiff body text
threadDelay 1000000 threadDelay 1000000
if showRunning body == IsRunning then if showRunning body == IsRunning then