EQXRXRZDYCM7BDAVBOXQYPG6C7IJT3OFGNIXCDAHJJBRKAXNGL7AC tagsTAGS
Flag old-basedefault: Falsemanual: False
librarydefault-language: Haskell2010hs-source-dirs: srcexposed-modules:AnankeAnanke.TimeLogAnanke.Intervalbuild-depends:base >= 4.4 && < 5,lens >= 3.7.6 && < 3.11,text >= 0.11 && < 0.12,time >= 1.1 && < 1.5,iso8601-time == 0.1.1,containers == 0.5.*,postgresql-simple >= 0.3.10
Executable anankehs-source-dirs: srcmain-is: Main.hs
Test-Suite test-anankedefault-language: Haskell2010type: exitcode-stdio-1.0hs-source-dirs: testmain-is: Test.hsbuild-depends:tasty >= 0.7,tasty-hunit,tasty-quickcheck,base,text,time,iso8601-time,ananke
snaplet-postgresql-simple >= 0.4.1if flag(old-base)build-depends:base >= 4 && < 4.4,lens >= 3.7.6 && < 3.8elsebuild-depends:base >= 4.4 && < 5,lens >= 3.7.6 && < 3.11
snaplet-postgresql-simple >= 0.4.1,ananke
cabal install --enable-tests --only-dependencies
module Ananke.Interval( Interval, interval, start, end) whereimport Data.Time.Clockimport Data.Time.LocalTimedata Interval = Interval { start :: UTCTime, end :: UTCTime} deriving (Show, Eq)interval s e = if s < e then Just (Interval s e) else Nothing