AssociatedFile newtype
To prevent any further mistakes like 301aff34c4
This commit was sponsored by Francois Marier on Patreon.
This commit is contained in:
parent
2cd7496210
commit
c8e1e3dada
43 changed files with 179 additions and 138 deletions
|
@ -86,7 +86,7 @@ seek o = case batchOption o of
|
|||
start :: POSIXTime -> MetaDataOptions -> FilePath -> Key -> CommandStart
|
||||
start now o file k = startKeys now o k (mkActionItem afile)
|
||||
where
|
||||
afile = Just file
|
||||
afile = AssociatedFile (Just file)
|
||||
|
||||
startKeys :: POSIXTime -> MetaDataOptions -> Key -> ActionItem -> CommandStart
|
||||
startKeys now o k ai = case getSet o of
|
||||
|
@ -155,7 +155,7 @@ startBatch (i, (MetaData m)) = case i of
|
|||
Left f -> do
|
||||
mk <- lookupFile f
|
||||
case mk of
|
||||
Just k -> go k (mkActionItem (Just f))
|
||||
Just k -> go k (mkActionItem (AssociatedFile (Just f)))
|
||||
Nothing -> giveup $ "not an annexed file: " ++ f
|
||||
Right k -> go k (mkActionItem k)
|
||||
where
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue