mirror of
https://github.com/aelve/guide.git
synced 2024-12-22 20:31:31 +03:00
Fix case one-liner breaking Ormolu
This commit is contained in:
parent
c8039b898b
commit
9f8f0a2262
@ -60,7 +60,9 @@ showLogLine timeFormat (Di.Core.Log time lvl path msg) =
|
||||
format "[{}] {}: {} | {}" time' (show lvl) path' msg'
|
||||
where
|
||||
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))
|
||||
|
||||
-- | Pretty-print a log path.
|
||||
|
Loading…
Reference in New Issue
Block a user