-----------------------------------------------------------------------------
-- |
-- Module      :  Data.HodaTime.Calendar.Islamic
-- Copyright   :  (C) 2017 Jason Johnson
-- License     :  BSD-style (see the file LICENSE)
-- Maintainer  :  Jason Johnson <jason.johnson.081@gmail.com>
-- Stability   :  experimental
-- Portability :  POSIX, Windows
--
-- This is the module for 'CalendarDate' and 'CalendarDateTime' in the 'Islamic' calendar.
----------------------------------------------------------------------------
module Data.HodaTime.Calendar.Islamic
(
)
where

data IslamicLeapYearPattern =
    ILYPBase15
  | ILYPBase16
  | ILYPIndian
  | ILYPHabashAlHasib
  deriving (IslamicLeapYearPattern -> IslamicLeapYearPattern -> Bool
(IslamicLeapYearPattern -> IslamicLeapYearPattern -> Bool)
-> (IslamicLeapYearPattern -> IslamicLeapYearPattern -> Bool)
-> Eq IslamicLeapYearPattern
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: IslamicLeapYearPattern -> IslamicLeapYearPattern -> Bool
== :: IslamicLeapYearPattern -> IslamicLeapYearPattern -> Bool
$c/= :: IslamicLeapYearPattern -> IslamicLeapYearPattern -> Bool
/= :: IslamicLeapYearPattern -> IslamicLeapYearPattern -> Bool
Eq, Int -> IslamicLeapYearPattern -> ShowS
[IslamicLeapYearPattern] -> ShowS
IslamicLeapYearPattern -> String
(Int -> IslamicLeapYearPattern -> ShowS)
-> (IslamicLeapYearPattern -> String)
-> ([IslamicLeapYearPattern] -> ShowS)
-> Show IslamicLeapYearPattern
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> IslamicLeapYearPattern -> ShowS
showsPrec :: Int -> IslamicLeapYearPattern -> ShowS
$cshow :: IslamicLeapYearPattern -> String
show :: IslamicLeapYearPattern -> String
$cshowList :: [IslamicLeapYearPattern] -> ShowS
showList :: [IslamicLeapYearPattern] -> ShowS
Show)
    
data IslamicEpoch =
    IslamicAstronomical
  | IslamicCivil
  deriving (IslamicEpoch -> IslamicEpoch -> Bool
(IslamicEpoch -> IslamicEpoch -> Bool)
-> (IslamicEpoch -> IslamicEpoch -> Bool) -> Eq IslamicEpoch
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: IslamicEpoch -> IslamicEpoch -> Bool
== :: IslamicEpoch -> IslamicEpoch -> Bool
$c/= :: IslamicEpoch -> IslamicEpoch -> Bool
/= :: IslamicEpoch -> IslamicEpoch -> Bool
Eq, Int -> IslamicEpoch -> ShowS
[IslamicEpoch] -> ShowS
IslamicEpoch -> String
(Int -> IslamicEpoch -> ShowS)
-> (IslamicEpoch -> String)
-> ([IslamicEpoch] -> ShowS)
-> Show IslamicEpoch
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> IslamicEpoch -> ShowS
showsPrec :: Int -> IslamicEpoch -> ShowS
$cshow :: IslamicEpoch -> String
show :: IslamicEpoch -> String
$cshowList :: [IslamicEpoch] -> ShowS
showList :: [IslamicEpoch] -> ShowS
Show)