Changeset 6a797c2 in adblock2privoxy


Ignore:
Timestamp:
Apr 13, 2014 6:36:37 PM (6 years ago)
Author:
zubr <a@…>
Branches:
master
Children:
3a4ad06
Parents:
fd92ff0
Message:

fixed version displaying

Files:
3 edited

Legend:

Unmodified
Added
Removed
  • adblock2privoxy.cabal

    red93ff3 r6a797c2  
    11name:           adblock2privoxy 
    2 version:        1.2.3 
     2version:        1.2.4 
    33cabal-version:  >= 1.6 
    44build-type:     Simple 
     
    8080                type:     git 
    8181                location: ​http://projects.zubr.me/adblock2privoxy.git 
    82                 tag:      1.2.3 
     82                tag:      1.2.4 
  • changelog

    rfd92ff0 r6a797c2  
    1 1.2.3 
    2             * Documentation 
     11.2.4 
     2            * Documentation and bugfixes 
    33 
    441.1.0 
  • src/Main.hs

    rd515b21 r6a797c2  
    1717import Network.Socket 
    1818import System.FilePath 
     19import Paths_adblock2privoxy (version) 
     20import Data.Version (showVersion) 
    1921 
    2022data Options = Options 
     
    5456                case foldl (flip id) (Options False "" "" "" False) opts of 
    5557                        Options False "" _ _ _ -> writeError "Privoxy dir is not specified.\n" 
     58                        opts'@Options{_showVersion = True} -> return (opts', nonOpts) 
    5659                        opts' -> return (setDefaults opts', nonOpts) 
    5760      (_,_,errs) -> writeError $ concat errs 
     
    99102        now <- getCurrentTime 
    100103        args <- getArgs 
    101         (Options showVersion privoxyDir webDir taskFile forced, urls) <- parseOptions args 
     104        (Options printVersion privoxyDir webDir taskFile forced, urls) <- parseOptions args 
    102105        let acton 
    103                 | showVersion = putStrLn "adblock2privoxy version 1.0" 
     106                | printVersion = putStrLn $ "adblock2privoxy version " ++ (showVersion version) 
    104107                | not . null $ urls  
    105108                   =    processSources privoxyDir webDir taskFile (makeInfo <$> urls) 
Note: See TracChangeset for help on using the changeset viewer.