content: module Text.Greek.Phonology.Shorthand where
  
  import Text.Greek.Phonology.Phoneme
  import Text.Greek.Phonology.Consonants
  import Text.Greek.Phonology.Vowels
  
  ᾰ :: Phoneme
  ᾰ = MkVowel (alpha Short)
  
  ᾱ :: Phoneme
  ᾱ = MkVowel (alpha Long)
  
  β :: Phoneme
  β = MkConsonant Beta
  
  γ :: Phoneme
  γ = MkConsonant Gamma
  
  γγ :: Phoneme 
  γγ = MkConsonant GammaNasal
  
  ϝ :: Phoneme
  ϝ = MkConsonant Digamma
  
  δ :: Phoneme
  δ = MkConsonant Delta
  
  ε :: Phoneme
  ε = MkVowel epsilon
  
  ζ :: Phoneme
  ζ = MkConsonant Zeta
  
  η :: Phoneme
  η = MkVowel eta
  
  θ :: Phoneme
  θ = MkConsonant Theta
  
  ῐ :: Phoneme
  ῐ = MkVowel (iota Short)
  
  ῑ :: Phoneme
  ῑ = MkVowel (iota Long)
  
  κ :: Phoneme
  κ = MkConsonant Kappa
  
  λ :: Phoneme
  λ = MkConsonant Lambda
  
  μ :: Phoneme
  μ = MkConsonant Mu
  
  ν :: Phoneme
  ν = MkConsonant Nu
  
  ξ :: Phoneme
  ξ = MkConsonant Xi
  
  ο :: Phoneme
  ο = MkVowel omicron
  
  π :: Phoneme
  π = MkConsonant Pi
  
  ρ :: Phoneme
  ρ = MkConsonant Rho
  
  σ :: Phoneme
  σ = MkConsonant Sigma
  
  τ :: Phoneme
  τ = MkConsonant Tau
  
  ῠ :: Phoneme
  ῠ = MkVowel (upsilon Short)
  
  ῡ :: Phoneme
  ῡ = MkVowel (upsilon Long)
  
  φ :: Phoneme
  φ = MkConsonant Phi
  
  χ :: Phoneme
  χ = MkConsonant Chi
  
  ψ :: Phoneme
  ψ = MkConsonant Psi
  
  ω :: Phoneme
  ω = MkVowel omega
  
  
  αι :: Phoneme
  αι = MkVowel alphaIota
  
  αυ :: Phoneme
  αυ = MkVowel alphaUpsilon
  
  ει :: Phoneme
  ει = MkVowel epsilonIota
  
  ει' :: Phoneme
  ει' = MkVowel spuriousEI
  
  ευ :: Phoneme
  ευ = MkVowel epsilonUpsilon
  
  ηυ :: Phoneme
  ηυ = MkVowel etaUpsilon
  
  οι :: Phoneme
  οι = MkVowel omicronIota
  
  ου :: Phoneme
  ου = MkVowel omicronUpsilon
  
  ου' :: Phoneme
  ου' = MkVowel spuriousOU
  
  
  ᾳ :: Phoneme
  ᾳ = MkVowel improperAlpha
  
  ῃ :: Phoneme
  ῃ = MkVowel improperAlpha
  
  ῳ :: Phoneme
  ῳ = MkVowel improperOmega
  
  
  ι' :: Phoneme
  ι' = MkConsonant ConsonantalIota
  
  rough :: Phoneme
  rough = MkConsonant RoughBreathing
  