module Acme.Year ( currentYear, ) where import Data.Version import Paths_acme_year -- | The current year (e.g. @2024@) currentYear :: Int currentYear :: Int currentYear = case Version -> [Int] versionBranch Version version of [] -> [Char] -> Int forall a. HasCallStack => [Char] -> a error [Char] "This package is timeless" (Int a:[Int] _) -> Int a