aelve/guide
1
1
Fork 0
mirror of https://github.com/aelve/guide.git synced 2024-11-23 04:07:14 +03:00
Code Issues Projects Releases Wiki Activity

Fix case one-liner breaking Ormolu

Browse Source
This commit is contained in:
Artyom Kazak 2019-07-25 15:13:54 +03:00
parent c8039b898b
commit 9f8f0a2262
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
back/src/Guide/Logger/Run.hs
View File

@ -60,7 +60,9 @@ showLogLine timeFormat (Di.Core.Log time lvl path msg) =
format "[{}] {}: {} | {}" time' (show lvl) path' msg' format "[{}] {}: {} | {}" time' (show lvl) path' msg'
where where
time' = formatTime defaultTimeLocale timeFormat (systemToUTCTime time) time' = formatTime defaultTimeLocale timeFormat (systemToUTCTime time)
path' = case showPath path of "" -> "<root>"; s -> s path' = case showPath path of
"" -> "<root>"
s -> s
msg' = T.replace "\n" ";" (toText (Df1.unMessage msg)) msg' = T.replace "\n" ";" (toText (Df1.unMessage msg))
-- | Pretty-print a log path. -- | Pretty-print a log path.