todos 0.5.3.1 → 0.5.3.2
raw patch · 4 files changed
+18/−6 lines, 4 filesdep ~dates
Dependency ranges changed: dates
Files
- Todos/Default/CmdLine.hs +1/−1
- Todos/IO.hs +7/−1
- Todos/Main.hs +6/−1
- todos.cabal +4/−3
Todos/Default/CmdLine.hs view
@@ -198,7 +198,7 @@ → [String] -- ^ Command line args → Either String (Options, [FilePath]) -- ^ Error message or (Options, list of files) parseCmdLine' currDate args = - case getOpt Permute (options currDate) (map decodeString args) of+ case getOpt Permute (options currDate) (map ensureUnicode args) of (flags, [], []) → Right (parseFlags flags, ["TODO"]) (flags, nonOpts, []) → Right (parseFlags flags, nonOpts) (_, _, msgs) → Left $ concat msgs ⧺ usage
Todos/IO.hs view
@@ -2,7 +2,7 @@ -- | Wrapper to support unicode IO with GHC 6.10 and 6.12 module Todos.IO (putStr, putStrLn,readFile,getContents,print,- encodeString, decodeString)+ encodeString, decodeString, ensureUnicode) where import Codec.Binary.UTF8.String (encodeString, decodeString)@@ -12,8 +12,14 @@ import Prelude hiding (putStr, putStrLn,readFile,getContents,print) import System.IO.UTF8 +ensureUnicode :: String -> String+ensureUnicode = decodeString+ #else import Prelude++ensureUnicode :: String -> String+ensureUnicode = id #endif
Todos/Main.hs view
@@ -1,4 +1,4 @@-{-# LANGUAGE UnicodeSyntax #-}+{-# LANGUAGE UnicodeSyntax, CPP #-} module Todos.Main (module Todos.Default,@@ -73,6 +73,11 @@ todos = wrapMain $ defaultParams { projectName = "todos", realMain = realTodos,+ ghcOpts = [+#ifdef PROFILE+ "-prof", "-auto-all"+#endif+ ], statusOut = const (return ()) }
todos.cabal view
@@ -1,5 +1,5 @@ Name: todos-Version: 0.5.3.1+Version: 0.5.3.2 Cabal-Version: >= 1.8 License: BSD3 License-File: LICENSE@@ -17,6 +17,7 @@ flag with_curses Description: Build Todos.Default.Curses module, for ncurses output.+ Default: False library Exposed-Modules: Todos@@ -45,7 +46,7 @@ Build-Depends: base >= 3 && <= 5, containers, parsec >= 3, syb, mtl, ansi-terminal, Glob, time, regex-pcre, directory, filepath, process, data-hash, dyre, utf8-string, base-unicode-symbols >= 0.2.2.1,- dates ==0.1.*+ dates >= 0.1.2.0 if flag(with_curses) Exposed-Modules: Todos.Default.Curses@@ -82,7 +83,7 @@ Build-Depends: base >= 3 && <= 5, containers, parsec >= 3, syb, mtl, ansi-terminal, Glob, time, regex-pcre, directory, filepath, process, data-hash, dyre, utf8-string, base-unicode-symbols >= 0.2.2.1,- dates >=0.1.1.0+ dates >=0.1.2.0 Source-repository head type: git