hog 0.1 → 0.1.1

raw patch · 2 files changed

+12/−1 lines, 2 files

Files

hog.cabal +2/−1
src/Control/Concurrent/Delay.hs +10/−0

hog.cabal view

@@ -1,5 +1,5 @@ Name:                hog-Version:             0.1+Version:             0.1.1 Synopsis:            Simple IRC logger bot. Description:         Simple IRC logger bot, connects to given channels and                      logs lines to files of the corresponding channel names.@@ -14,6 +14,7 @@  Executable hog   Main-is:           Main.hs+  Other-Modules:     Control.Concurrent.Delay   Hs-source-dirs:    src   Build-depends:     base >4 && <5,                      unix >= 2.4 && <2.5,

+ src/Control/Concurrent/Delay.hs view

@@ -0,0 +1,10 @@+module Control.Concurrent.Delay where++import Control.Concurrent++delaySeconds :: Integer -> IO ()+delaySeconds 0 = return ()+delaySeconds n = do threadDelay (1000 * 1000); delaySeconds (n-1)++delayMinutes :: Integer -> IO ()+delayMinutes = delaySeconds . (*60)