__             __                                __   
 __ __/ /  __ _____  / /___ ____ _____ ___ _______  ___/ /__ 
/ // / _ \/ // / _ \/ __/ // / // (_-</ -_) __(_-<_/ _  / -_)
\_,_/_.__/\_,_/_//_/\__/\_,_/\_,_/___/\__/_/ /___(_)_,_/\__/ 
                                                             
Fragen ist menschlich!

++++ Neues Betatheme für ubuntuusers.de: Zurück in die 90iger +++ Was ist deine Meinung dazu? #uu.de-shThm +++ siehe Ikhayaartikel +++ Schonmal aufs Datum geschaut? ++++
Titel:
idea to make code more simple.
Datum:
24. Februar 2011 19:36
Aktionen:
Code:
1
2
3
4
5
6
let check = do when (null args) $ Left "No arguments given. See --help for more info."
               when (length params > 1) $ Left ("No arguments given for " ++ param)
               return (param,pArgs)
               where (params@(param:_),rest) = span (\(c:_) -> c=='-') args
                     (pArgs,_) = span (\(c:_) -> c/='-') rest