@@ -56,12 +56,13 @@ getT2TMeta = do
5656 outp <- fromMaybe "" <$> P.getOutputFile
5757 curDate <- formatTime defaultTimeLocale "%F" <$> P.getZonedTime
5858 curMtime <- catchError
59− ((nonEmpty <$> mapM P.getModificationTime inps) >>=
60− \case
59+ (mapM P.getModificationTime inps >>=
60+ (\case
6161 Nothing ->
6262 formatTime defaultTimeLocale "%T" <$> P.getZonedTime
6363 Just ts -> return $
6464 formatTime defaultTimeLocale "%T" $ maximum ts)
65+ . nonEmpty)
6566 (const (return ""))
6667 return $ T2TMeta (T.pack curDate) (T.pack curMtime)
6768 (intercalate ", " inps) outp