fix create-plans
This commit is contained in:
parent
9f9f2f5ec4
commit
a7c9d5bc84
1 changed files with 1 additions and 1 deletions
|
@ -17,7 +17,7 @@
|
|||
today <- localDay . zonedTimeToLocalTime <$> getZonedTime
|
||||
[0..7] & fmap (`addDays` today) & mapM_ \day -> do
|
||||
planned <- khal ["list", "-a", "Planung", show day, "06:00", "24h", "--notstarted"] |> captureTrim
|
||||
when (planned == "No events") $ do
|
||||
when (LBS.null planned) $ do
|
||||
say $ "Creating events for " <> show day
|
||||
if (dayOfWeek day `elem` [Saturday, Sunday]) then do
|
||||
${plans.weekend}
|
||||
|
|
Loading…
Reference in a new issue