pgdl 10.0 → 10.2

raw patch · 5 files changed

+9/−6 lines, 5 filesdep ~brick

Dependency ranges changed: brick

Files

pgdl.cabal +3/−2
src/DownloadInterface.hs +1/−1
src/EntryAttrViewer.hs +3/−1
src/Main.hs +1/−1
src/Networking.hs +1/−1

pgdl.cabal view

@@ -1,6 +1,6 @@  name:                pgdl-version:             10.0+version:             10.2 license:             PublicDomain license-file:        LICENSE author:              mingchuan@@ -17,6 +17,7 @@   synopsis:            browse directory listing webpages and download files from them.+tested-with:         GHC == 7.10.3, GHC == 8.0.1  source-repository head   type:     git@@ -37,7 +38,7 @@                        data-default,                        tagsoup,                        directory-listing-webpage-parser >= 0.1.1.0,-                       brick == 0.7.*, vty, microlens,+                       brick >= 0.10 && < 0.12, vty, microlens,                        conduit, conduit-extra,                        http-conduit, http-types, resourcet,                        configurator >= 0.3,

src/DownloadInterface.hs view

@@ -53,7 +53,7 @@  --                                 bytes already downloaded data DownloadState = DownloadState Integer | FinishedState-                   | UserInput DownloadState (E.Editor String)+                   | UserInput DownloadState (E.Editor String String)                    --          ^ download progress  data DEvent = VtyEvent V.Event

src/EntryAttrViewer.hs view

@@ -4,6 +4,7 @@ where  import Data.Text (Text)+import Brick.Types (Widget) import qualified Data.Text as T import qualified Brick.Main as M import qualified Brick.Widgets.Center as C@@ -16,7 +17,8 @@ entryAttrViewer :: DNode -> IO () entryAttrViewer (Directory entry _) = entryAttrViewer (File entry "directory no link." False) entryAttrViewer (File entry url downloaded) =-    M.simpleMain . C.vCenter . C.hCenter . C.hLimit U.terminalWidth . C.txt $ info+    M.simpleMain . C.vCenter . C.hCenter . C.hLimit U.terminalWidth $+    (C.txt info :: Widget String)     where     info = T.unlines $            zipWith (\describ s -> T.intercalate "\n" .

src/Main.hs view

@@ -37,7 +37,7 @@ import qualified Utils as U  data MainState = LState DList-               | SearchState DList (E.Editor String)+               | SearchState DList (E.Editor String String)  main :: IO () main = do

src/Networking.hs view

@@ -33,7 +33,7 @@                       IO NetworkResource genNetworkResource url up = do     let genReq :: Text -> Request-        genReq rp = case parseUrl absPath of+        genReq rp = case parseRequest absPath of                         Nothing -> error $ "invalid url: " ++ absPath                         Just r -> auth r             where