hoodle 0.1.1.0 → 0.1.1.1
raw patch · 2 files changed
+32/−4 lines, 2 filesdep ~hoodle-core
Dependency ranges changed: hoodle-core
Files
- hoodle.cabal +6/−3
- lib/Hoodle/ProgType.hs +26/−1
hoodle.cabal view
@@ -1,5 +1,5 @@ Name: hoodle-Version: 0.1.1.0+Version: 0.1.1.1 Synopsis: Executable for hoodle Description: Hoodle is a pen notetaking program written in haskell. Homepage: http://ianwookim.org/hoodle@@ -24,7 +24,7 @@ Build-Depends: base>4, cmdargs >= 0.7, - hoodle-core == 0.9.0, + hoodle-core == 0.9.0.0, hoodle Library@@ -39,9 +39,12 @@ cmdargs >= 0.7, configurator == 0.2.*, dyre >= 0.8.11, - hoodle-core == 0.9.0+ hoodle-core == 0.9.0.0 Exposed-Modules: Hoodle.ProgType Hoodle.Job Hoodle.Command Hoodle.StartUp+ Other-Modules:+ Paths_hoodle+
lib/Hoodle/ProgType.hs view
@@ -3,22 +3,41 @@ ----------------------------------------------------------------------------- -- | -- Module : Hoodle.ProgType --- Copyright : (c) 2011, 2012 Ian-Woo Kim+-- Copyright : (c) 2011-2013 Ian-Woo Kim -- -- License : BSD3 -- Maintainer : Ian-Woo Kim <ianwookim@gmail.com> -- Stability : experimental -- Portability : GHC --+----------------------------------------------------------------------------- module Hoodle.ProgType where +import Data.Version import System.Console.CmdArgs+--+import Paths_hoodle data Hoodle = Test { xojfile :: Maybe FilePath } deriving (Show,Data,Typeable) +programName :: String+programName = "Hoodle"++programVersion :: String +programVersion = showVersion version ++programInfo :: String +programInfo = programName ++ " version " ++ programVersion ++programAbout :: String +programAbout = "A pen notetaking program written in haskell"++programCopyright :: String+programCopyright = "(C) Ian-Woo Kim 2011-2013"+ test :: Hoodle test = Test { xojfile = def &= typ "FILENAME" &= args -- &= argPos 0 &= opt "OPTIONAL" } &= auto @@ -26,5 +45,11 @@ mode :: Hoodle mode = modes [test] + &= versionArg [ explicit, name "version", name "V", summary programInfo]+ &= summary (programInfo ++ ", " ++ programCopyright)+ &= help programAbout + &= helpArg [explicit, name "help", name "h"]+ &= program programName +