1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
module Main where
import Data.Hashable (Hashable)
import Data.Hashable.Time ()
import Data.Time.Compat
import Data.Time.Calendar.Month.Compat
import Data.Time.Calendar.Quarter.Compat
main :: IO ()
main = putStrLn "OK"
_HashableInstances :: [()]
_HashableInstances =
[ test (undefined :: TimeLocale)
, test (undefined :: LocalTime)
, test (undefined :: TimeOfDay)
, test (undefined :: TimeZone)
, test (undefined :: UniversalTime)
, test (undefined :: UTCTime)
, test (undefined :: NominalDiffTime)
, test (undefined :: DiffTime)
, test (undefined :: DayOfWeek)
, test (undefined :: Day)
, test (undefined :: QuarterOfYear)
, test (undefined :: Quarter)
, test (undefined :: Month)
]
where
test :: Hashable t => t -> ()
test _ = ()
|
