foscam-directory 0.0.3 → 0.0.4

raw patch · 3 files changed

+22/−8 lines, 3 filesdep ~foscam-filename

Dependency ranges changed: foscam-filename

Files

changelog +4/−0
foscam-directory.cabal +2/−2
src/Data/Foscam/Directory.hs +16/−6

changelog view

@@ -10,3 +10,7 @@  * Align version with foscam-filename +0.0.4++* Add `filenames` function.+

foscam-directory.cabal view

@@ -1,5 +1,5 @@ name:               foscam-directory-version:            0.0.3+version:            0.0.4 license:            BSD3 license-file:       LICENSE author:             Tony Morris <ʇǝu˙sıɹɹoɯʇ@ןןǝʞsɐɥ> <dibblego>@@ -34,7 +34,7 @@                     , utf8-string     >= 1     && < 2.0                     , lens            >= 4.0   && < 5                     , pretty          >= 1.1.2 && < 1.2-                    , foscam-filename == 0.0.3+                    , foscam-filename == 0.0.4    ghc-options:                     -Wall

src/Data/Foscam/Directory.hs view

@@ -3,18 +3,20 @@ module Data.Foscam.Directory(   getFoscamDirectoryContents , FoscamDirectoryFile(Isn't, Is)+, filenames ) where -import Data.Foscam.File.Filename(Filename, filename)-import System.Directory(getDirectoryContents)-import Text.Trifecta(Result(Success, Failure), parseString)-import Text.Trifecta.Delta(Delta(Directed))+import Control.Category((.), id) import Data.ByteString.UTF8 as UTF8(fromString) import Data.Eq(Eq)+import Data.Foscam.File.Filename(Filename, filename)+import Data.Functor(fmap, (<$>))+import Data.List(foldr) import Data.Ord(Ord)+import System.Directory(getDirectoryContents) import System.IO(IO, FilePath)-import Control.Category((.))-import Data.Functor(fmap, (<$>))+import Text.Trifecta(Result(Success, Failure), parseString)+import Text.Trifecta.Delta(Delta(Directed)) import Prelude(Show)  data FoscamDirectoryFile =@@ -31,3 +33,11 @@       fromResult (Failure _) =         Isn't p   in fmap (fromResult . parseString filename (Directed (UTF8.fromString p) 0 0 0 0)) <$> getDirectoryContents p++filenames ::+  [FoscamDirectoryFile]+  -> [Filename]+filenames =+  foldr (\f -> case f of+                 Isn't _ -> id+                 Is n -> (n:)) []