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 :: Value -> Maybe Text
|
||||||
getJobName (Object o)
|
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
|
getJobName _ = Nothing
|
||||||
Reference in New Issue
Block a user