hayoo-cli 0.1.0.3 → 0.1.0.4

raw patch · 2 files changed

+9/−6 lines, 2 files

Files

• Main.hs +8/−5
• hayoo-cli.cabal +1/−1

@@ -39,21 +39,24 @@ htmlToAscii = (writeAsciiDoc def {writerReferenceLinks = True}) . readHtml def  printResultFull :: HayooResult -> IO ()-printResultFull singleResult@(HayooResult _ _ _ _ _ desc _ _ _ _) =+printResultFull singleResult@(HayooResult { resultDescription = desc }) =     printResultShort singleResult     >> putStrLn ""     >> (putStrLn $ htmlToAscii desc)  printResultShort :: HayooResult -> IO ()-printResultShort (HayooResult _ _ _ name _ _ signature modules _ _) =+printResultShort (HayooResult { resultName      = name+                              , resultSignature = signature+                              , resultModules   = modules+                              }) =     putStrLn $ unwords $ modules ++ nameAndSignaruter name signature     where nameAndSignaruter n "" = [n]           nameAndSignaruter n s  = [n, "::", s]  printResponse :: Opts -> HayooResponse -> IO ()-printResponse (Opts _ _)     (HayooResponse _ _ _ [])      = putStrLn "No results found"-printResponse (Opts True _)  (HayooResponse _ _ _ (res:_)) = printResultFull res-printResponse (Opts False _) (HayooResponse _ _ _ results) = mapM_ printResultShort results+printResponse (Opts _ _)     (HayooResponse { result = [] })      = putStrLn "No results found"+printResponse (Opts True _)  (HayooResponse { result = (res:_) }) = printResultFull res+printResponse (Opts False _) (HayooResponse { result = results }) = mapM_ printResultShort results  run :: Opts -> IO () run opts =

@@ -2,7 +2,7 @@ --  see http://haskell.org/cabal/users-guide/  name:                hayoo-cli-version:             0.1.0.3+version:             0.1.0.4 synopsis:            Hayoo CLI description:         Simple console client for hayoo. homepage:            https://github.com/Gonzih/hayoo-cli