fuzzytime 0.7.7 → 0.7.8
raw patch · 6 files changed
+16/−11 lines, 6 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- FuzzyTime: caps :: FuzzyTimeConf -> Int
- FuzzyTime: clock :: FuzzyTimeConf -> Int
- FuzzyTime: end :: FuzzyTimeConf -> Time
- FuzzyTime: ftAm :: FuzzyTime -> Bool
- FuzzyTime: ftCaps :: FuzzyTime -> Int
- FuzzyTime: ftClock :: FuzzyTime -> Int
- FuzzyTime: ftHour :: FuzzyTime -> Int
- FuzzyTime: ftLang :: FuzzyTime -> String
- FuzzyTime: ftMin :: FuzzyTime -> Int
- FuzzyTime: ftMins :: FuzzyTime -> Int
- FuzzyTime: ftStyle :: FuzzyTime -> Int
- FuzzyTime: instance Data FuzzyTimeConf
- FuzzyTime: instance Eq FuzzyTime
- FuzzyTime: instance Show FuzzyTime
- FuzzyTime: instance Show FuzzyTimeConf
- FuzzyTime: instance Typeable FuzzyTimeConf
- FuzzyTime: lang :: FuzzyTimeConf -> String
- FuzzyTime: now :: FuzzyTimeConf -> Time
- FuzzyTime: prec :: FuzzyTimeConf -> Int
- FuzzyTime: sound :: FuzzyTimeConf -> String
- FuzzyTime: style :: FuzzyTimeConf -> Int
- FuzzyTime: time :: FuzzyTimeConf -> Time
+ FuzzyTime: [caps] :: FuzzyTimeConf -> Int
+ FuzzyTime: [clock] :: FuzzyTimeConf -> Int
+ FuzzyTime: [end] :: FuzzyTimeConf -> Time
+ FuzzyTime: [ftAm] :: FuzzyTime -> Bool
+ FuzzyTime: [ftCaps] :: FuzzyTime -> Int
+ FuzzyTime: [ftClock] :: FuzzyTime -> Int
+ FuzzyTime: [ftHour] :: FuzzyTime -> Int
+ FuzzyTime: [ftLang] :: FuzzyTime -> String
+ FuzzyTime: [ftMin] :: FuzzyTime -> Int
+ FuzzyTime: [ftMins] :: FuzzyTime -> Int
+ FuzzyTime: [ftStyle] :: FuzzyTime -> Int
+ FuzzyTime: [lang] :: FuzzyTimeConf -> String
+ FuzzyTime: [now] :: FuzzyTimeConf -> Time
+ FuzzyTime: [prec] :: FuzzyTimeConf -> Int
+ FuzzyTime: [sound] :: FuzzyTimeConf -> String
+ FuzzyTime: [style] :: FuzzyTimeConf -> Int
+ FuzzyTime: [time] :: FuzzyTimeConf -> Time
+ FuzzyTime: instance Data.Data.Data FuzzyTime.FuzzyTimeConf
+ FuzzyTime: instance GHC.Classes.Eq FuzzyTime.FuzzyTime
+ FuzzyTime: instance GHC.Show.Show FuzzyTime.FuzzyTime
+ FuzzyTime: instance GHC.Show.Show FuzzyTime.FuzzyTimeConf
Files
- CHANGELOG +3/−0
- INSTALL +1/−1
- README +1/−1
- fuzzytime.cabal +4/−4
- src/fuzzytime.1 +1/−1
- src/fuzzytime.hs +6/−4
CHANGELOG view
@@ -6,6 +6,9 @@ read default language from $LANG (hFlush!) daemon? +0.7.8 2016.12.06+ bugfix+ 0.7.7 2011.03.03 deps update (no more haskell98)
INSTALL view
@@ -1,4 +1,4 @@-fuzzytime 0.7.7 (2012.03.03)+fuzzytime 0.7.8 (2016.12.06) A clock and timer that tell the time in a more human way (the 'ten past six'-style)
README view
@@ -15,7 +15,7 @@ ### --help A clock and timer that tell the time in a more human way.-v0.7.7, 2012.03.03, *antispam*, GPL3++v0.7.8, 2016.12.06, *antispam*, GPL3+ fuzzytime [COMMAND] ... [OPTIONS]
fuzzytime.cabal view
@@ -1,5 +1,5 @@ name: fuzzytime-version: 0.7.7+version: 0.7.8 description: A clock and timer that tell the time in a more human way (the 'ten past six' style) synopsis: A 'ten past six' style clock category: Utils@@ -10,7 +10,7 @@ build-type: Simple stability: Experimental cabal-version: >=1.8-tested-with: GHC == 7.0.2+tested-with: GHC == 8.0.1 extra-source-files: CHANGELOG, INSTALL, README, src/fuzzytime.1, src/sound.wav @@ -41,5 +41,5 @@ source-repository this type: git- location: https://github.com/caminoix/fuzzytime- tag: 0.7.7+ location: https://github.com/kamwitsta/fuzzytime+ tag: 0.7.8
src/fuzzytime.1 view
@@ -1,4 +1,4 @@-.TH fuzzytime 1 "March 3, 2012" "version 0.7.7" "A fuzzy clock and timer"+.TH fuzzytime 1 "December 6, 2016" "version 0.7.8" "A fuzzy clock and timer" .\" -------------------------------------------------------------------------------------
src/fuzzytime.hs view
@@ -27,17 +27,19 @@ ---- Maintainer : Kamil Stachowski <kamil.stachowski@gmail.com> ---- Stability : unstable ---- Portability : unportable----- A clock that ells the time in a more human way (the \"ten past six\"-style).+---- A clock that tells the time in a more human way (the \"ten past six\"-style). -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- {-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE ScopedTypeVariables #-} module Main ( main ) where +import Control.Exception (catch, IOException) import Control.Monad (when) import Data.Char (isDigit) import Data.List (intercalate)@@ -109,7 +111,7 @@ getDefTimerConf = do nowClock <- getClockTime let nowString = take 5 . drop 11 $ show nowClock- endFile <- (readFile =<< confTimerFileLoc) `catch` (\_ -> return "empty")+ endFile <- (readFile =<< confTimerFileLoc) `catch` (\(_ :: IOException) -> return "empty") let endString = take 5 endFile return $ TimerConf { end = endString &= args &= typ "END"@@ -183,7 +185,7 @@ -- | \[config] Help message for summary confHelpSummary :: String-confHelpSummary = "A clock and timer that tell the time in a more human way.\nv0.7.7, 2012.03.03, kamil.stachowski@gmail.com, GPL3+"+confHelpSummary = "A clock and timer that tell the time in a more human way.\nv0.7.8, 2016.12.06, kamil.stachowski@gmail.com, GPL3+" -- check --------------------------------------------------------------------------------------------------------------------------------------------------------------------------@@ -272,7 +274,7 @@ Left e -> exitWithError e Right _ -> do path <- confTimerFileLoc- removeFile path `catch` (\_ -> return ())+ removeFile path `catch` (\(_ :: IOException) -> return ()) if end == "unset" then putStrLn "Timer has been unset." else do