File tree Expand file tree Collapse file tree 1 file changed +6
-3
lines changed Expand file tree Collapse file tree 1 file changed +6
-3
lines changed Original file line number Diff line number Diff line change 3
3
{-# LANGUAGE RecordWildCards #-}
4
4
{-# LANGUAGE StandaloneDeriving #-}
5
5
{-# LANGUAGE ViewPatterns #-}
6
- {-# OPTIONS_GHC -fno-warn-orphans -Wno-unused-record-wildcards #-}
6
+ {-# OPTIONS_GHC -fno-warn-orphans #-}
7
+ #if __GLASGOW_HASKELL__ >= 810
8
+ {-# OPTIONS_GHC -Wno-unused-record-wildcards #-}
9
+ #endif
7
10
8
11
#include "thyme.h"
9
12
@@ -285,7 +288,7 @@ showsY = showsYear
285
288
286
289
instance FormatTime TimeOfDay where
287
290
{-# INLINEABLE showsTime #-}
288
- showsTime TimeLocale {.. } (TimeOfDay h m (DiffTime s)) = \ def c -> case c of
291
+ showsTime TimeLocale {.. } (TimeOfDay h m (DiffTime s)) = \ def c -> case c of
289
292
-- aggregate
290
293
' R' -> shows02 h . (:) ' :' . shows02 m
291
294
' T' -> shows02 h . (:) ' :' . shows02 m . (:) ' :' . shows02 si
@@ -839,7 +842,7 @@ instance ParseTime LocalTime where
839
842
840
843
instance ParseTime Day where
841
844
{-# INLINE buildTime #-}
842
- buildTime tp@ TimeParse { .. }
845
+ buildTime tp
843
846
| tp ^. flag IsOrdinalDate = ordinalDate # buildTime tp
844
847
| tp ^. flag IsGregorian = gregorian # buildTime tp
845
848
| tp ^. flag IsWeekDate = weekDate # buildTime tp
You can’t perform that action at this time.
0 commit comments