Merge branch 'master' of gitlab.uniworx.de:fradrive/fradrive
This commit is contained in:
commit
09c516c0b1
@ -220,5 +220,5 @@ postAdminJobsR = do
|
||||
|
||||
getJobName :: Value -> Maybe Text
|
||||
getJobName (Object o)
|
||||
| Just (String s) <- HashMap.lookup "job" o = Just s -- $ kebabToCamel s
|
||||
| Just (String s) <- HashMap.lookup "job" o = Just s -- (kebabToCamel s)
|
||||
getJobName _ = Nothing
|
||||
Loading…
Reference in New Issue
Block a user