Skip to content

Commit fc488d0

Browse files
fix ISO8601 related deprecation in time (#3654)
Co-authored-by: mergify[bot] <37929162+mergify[bot]@users.noreply.github.com>
1 parent 9f0e3bb commit fc488d0

File tree

1 file changed

+3
-5
lines changed
  • hls-graph/src/Development/IDE/Graph/Internal

1 file changed

+3
-5
lines changed

hls-graph/src/Development/IDE/Graph/Internal/Profile.hs

Lines changed: 3 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -19,10 +19,8 @@ import Data.List (dropWhileEnd, foldl',
1919
sortBy)
2020
import Data.List.Extra (nubOrd)
2121
import Data.Maybe
22-
import Data.Time (defaultTimeLocale,
23-
formatTime,
24-
getCurrentTime,
25-
iso8601DateFormat)
22+
import Data.Time (getCurrentTime)
23+
import Data.Time.Format.ISO8601 (iso8601Show)
2624
import Development.IDE.Graph.Classes
2725
import Development.IDE.Graph.Internal.Database (getDirtySet)
2826
import Development.IDE.Graph.Internal.Paths
@@ -207,7 +205,7 @@ runTemplate ask = lbsMapLinesIO f
207205
time <- getCurrentTime
208206
pure $ LBS.pack $
209207
"var version = \"0\"" ++
210-
"\nvar generated = " ++ show (formatTime defaultTimeLocale (iso8601DateFormat (Just "%H:%M:%S")) time)
208+
"\nvar generated = " ++ iso8601Show time
211209
asker x = ask x
212210

213211
-- Perform a mapM on each line and put the result back together again

0 commit comments

Comments
 (0)