ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

FIX typo

This commit is contained in:
Nathan Dwarshuis 2022-07-09 23:45:56 -04:00
parent 71e971f647
commit 45ce4e2417
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lib/Data/Internal/Dependency.hs
View File

@ -1164,7 +1164,7 @@ dataTree_ f_ = go
dataIODependency :: IODependency p -> DependencyData dataIODependency :: IODependency p -> DependencyData
dataIODependency d = first Q $ case d of dataIODependency d = first Q $ case d of
(IORead n f _) -> ("ioread", [ ("desc", JSON_Q $ Q n) (IORead n f _) -> ("ioread", [ ("desc", JSON_Q $ Q n)
, ("fulfilment", JSON_UQ , ("fulfillment", JSON_UQ
$ dataFulfillments f) $ dataFulfillments f)
]) ])
(IOConst _) -> ("const", []) (IOConst _) -> ("const", [])
@ -1177,7 +1177,7 @@ dataIODependency_ d = case d of
(IOSystem_ f s) -> dataSysDependency f s (IOSystem_ f s) -> dataSysDependency f s
(IOSometimes_ _) -> (Q "sometimes", []) (IOSometimes_ _) -> (Q "sometimes", [])
(IOTest_ desc f _) -> (Q "iotest", [ ("desc", JSON_Q $ Q desc) (IOTest_ desc f _) -> (Q "iotest", [ ("desc", JSON_Q $ Q desc)
, ("fulfilment", JSON_UQ $ dataFulfillments f) , ("fulfillment", JSON_UQ $ dataFulfillments f)
]) ])
dataSysDependency :: [Fulfillment] -> SystemDependency -> DependencyData dataSysDependency :: [Fulfillment] -> SystemDependency -> DependencyData
@ -1198,7 +1198,7 @@ dataSysDependency f d = first Q $
]) ])
(Process n) -> ("process", [("name", JSON_Q $ Q n), f']) (Process n) -> ("process", [("name", JSON_Q $ Q n), f'])
where where
f' = ("fulfilment", JSON_UQ $ dataFulfillments f) f' = ("fulfillment", JSON_UQ $ dataFulfillments f)
dataDBusDependency :: DBusDependency_ c -> DependencyData dataDBusDependency :: DBusDependency_ c -> DependencyData
@ -1206,7 +1206,7 @@ dataDBusDependency d =
case d of case d of
(DBusIO i) -> dataIODependency_ i (DBusIO i) -> dataIODependency_ i
(Bus f b) -> (Q "bus", [ ("busname", JSON_Q $ Q $ formatBusName b) (Bus f b) -> (Q "bus", [ ("busname", JSON_Q $ Q $ formatBusName b)
, ("fulfilment", JSON_UQ $ dataFulfillments f) , ("fulfillment", JSON_UQ $ dataFulfillments f)
]) ])
(Endpoint f b o i m) -> let (mt, mn) = memberData m (Endpoint f b o i m) -> let (mt, mn) = memberData m
in (Q "endpoint", [ ("busname", JSON_Q $ Q $ formatBusName b) in (Q "endpoint", [ ("busname", JSON_Q $ Q $ formatBusName b)
@ -1214,7 +1214,7 @@ dataDBusDependency d =
, ("interface", JSON_Q $ Q $ formatInterfaceName i) , ("interface", JSON_Q $ Q $ formatInterfaceName i)
, ("membertype", JSON_Q $ Q mt) , ("membertype", JSON_Q $ Q mt)
, ("membername", JSON_Q $ Q mn) , ("membername", JSON_Q $ Q mn)
, ("fulfilment", JSON_UQ $ dataFulfillments f) , ("fulfillment", JSON_UQ $ dataFulfillments f)
]) ])
where where
memberData (Method_ n) = ("method", formatMemberName n) memberData (Method_ n) = ("method", formatMemberName n)