music-util 0.9 → 0.9.1

raw patch · 2 files changed

+14/−12 lines, 2 files

Files

• music-util.cabal +1/−1
• src/music-util.hs +13/−11

@@ -1,6 +1,6 @@  name:               music-util-version:            0.9+version:            0.9.1 cabal-version:      >= 1.10 author:             Hans Hoglund maintainer:         Hans Hoglund <hans@hanshoglund.se>

@@ -152,16 +152,18 @@     chdir (fromString path) (main3 args)  main3 []              = usage-main3 (subCmd : args) = do-    if length (subCmd : args) <= 0 then usage else do-    if (subCmd == "--version")  then printVersion args else return ()-    if (subCmd == "document")   then document args else return ()-    if (subCmd == "install")    then install args else return ()-    if (subCmd == "list")       then list args else return ()-    if (subCmd == "graph")      then graph args else return ()-    if (subCmd == "foreach")    then forEach args else return ()-    if (subCmd == "setup")      then setup args else return ()-                                                               +main3 (subCmd : args) =+    if length (subCmd : args) <= 0 +      then usage +      else case subCmd of        +        "--version" -> printVersion args+        "document"  -> document args+        "install"   -> install args+        "list"      -> list args+        "graph"     -> graph args+        "foreach"   -> forEach args+        "setup"     -> setup args+                                                                  usage :: Sh () usage = do     echo $ "usage: music-util <command> [<args>]"@@ -183,7 +185,7 @@  printVersion :: [String] -> Sh () printVersion _ = do-    echo $ "music-util, version 0.9"+    echo $ "music-util, version 0.9.1"  setup :: [String] -> Sh () setup ("clone":_)   = setupClone (return ())