mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add readFileStrictAnyEncoding

Browse source
This commit is contained in:
Joey Hess 2013-11-20 13:41:13 -04:00
parent beaa7cb757
commit 94251de91e
3 changed files with 12 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Assistant/WebApp/Control.hs
View file

@ -67,9 +67,5 @@ getLogR :: Handler Html
getLogR = page "Logs" Nothing $ do
logfile <- liftAnnex $ fromRepo gitAnnexLogFile
logs <- liftIO $ listLogs logfile
logcontent <- liftIO $ concat <$> mapM readlog logs
logcontent <- liftIO $ concat <$> mapM readFileStrictAnyEncoding logs
$(widgetFile "control/log")
where
readlog f = withFile f ReadMode $ \h -> do
fileEncoding h -- log may contain invalid utf-8
hClose h `after` hGetContentsStrict h