@@ -64,7 +64,7 @@ module Streamly.Internal.FileSystem.Event.Linux
6464
6565 -- ** Default configuration
6666 Config (..)
67− , Toggle (..)
67+ , Switch (..)
6868 , defaultConfig
6969
7070 -- ** Watch Behavior
@@ -215,19 +215,17 @@ data Config = Config
215215-- Boolean settings
216216-------------------------------------------------------------------------------
217217
218−-- XXX Change Toggle to "OnOff" or "Switch". The name Toggle may be confusing.
219−--
220218-- | Whether a setting is 'On' or 'Off'.
221219--
222220-- /Pre-release/
223221--
224−data Toggle = On | Off deriving (Show, Eq)
222+data Switch = On | Off deriving (Show, Eq)
225223
226−toggle :: Toggle -> Toggle
224+toggle :: Switch -> Switch
227225toggle On = Off
228226toggle Off = On
229227
230−setFlag :: Word32 -> Toggle -> Config -> Config
228+setFlag :: Word32 -> Switch -> Config -> Config
231229setFlag mask status cfg@Config{..} =
232230 let flags =
233231 case status of
@@ -246,7 +244,7 @@ setFlag mask status cfg@Config{..} =
246244--
247245-- /Pre-release/
248246--
249−setRecursiveMode :: Toggle -> Config -> Config
247+setRecursiveMode :: Switch -> Config -> Config
250248setRecursiveMode rec cfg@Config{} = cfg {watchRec = rec == On}
251249
252250foreign import capi
@@ -262,7 +260,7 @@ foreign import capi
262260--
263261-- /Pre-release/
264262--
265−setFollowSymLinks :: Toggle -> Config -> Config
263+setFollowSymLinks :: Switch -> Config -> Config
266264setFollowSymLinks s = setFlag iN_DONT_FOLLOW (toggle s)
267265
268266foreign import capi
@@ -275,7 +273,7 @@ foreign import capi
275273--
276274-- /Pre-release/
277275--
278−setUnwatchMoved :: Toggle -> Config -> Config
276+setUnwatchMoved :: Switch -> Config -> Config
279277setUnwatchMoved = setFlag iN_EXCL_UNLINK
280278
281279#if HAVE_DECL_IN_MASK_CREATE
@@ -323,7 +321,7 @@ foreign import capi
323321--
324322-- /Pre-release/
325323--
326−setOneShot :: Toggle -> Config -> Config
324+setOneShot :: Switch -> Config -> Config
327325setOneShot = setFlag iN_ONESHOT
328326
329327foreign import capi
@@ -336,7 +334,7 @@ foreign import capi
336334--
337335-- /Pre-release/
338336--
339−setOnlyDir :: Toggle -> Config -> Config
337+setOnlyDir :: Switch -> Config -> Config
340338setOnlyDir = setFlag iN_ONLYDIR
341339
342340-------------------------------------------------------------------------------
@@ -352,7 +350,7 @@ foreign import capi
352350--
353351-- /Pre-release/
354352--
355−setRootDeleted :: Toggle -> Config -> Config
353+setRootDeleted :: Switch -> Config -> Config
356354setRootDeleted = setFlag iN_DELETE_SELF
357355
358356foreign import capi
@@ -364,7 +362,7 @@ foreign import capi
364362--
365363-- /Pre-release/
366364--
367−setRootMoved :: Toggle -> Config -> Config
365+setRootMoved :: Switch -> Config -> Config
368366setRootMoved = setFlag iN_MOVE_SELF
369367
370368-- | Report when the watched root path itself gets deleted or renamed.
@@ -373,7 +371,7 @@ setRootMoved = setFlag iN_MOVE_SELF
373371--
374372-- /Pre-release/
375373--
376−setRootPathEvents :: Toggle -> Config -> Config
374+setRootPathEvents :: Switch -> Config -> Config
377375setRootPathEvents = setFlag (iN_DELETE_SELF .|. iN_MOVE_SELF)
378376
379377foreign import capi
@@ -386,7 +384,7 @@ foreign import capi
386384--
387385-- /Pre-release/
388386--
389−setAttrsModified :: Toggle -> Config -> Config
387+setAttrsModified :: Switch -> Config -> Config
390388setAttrsModified = setFlag iN_ATTRIB
391389
392390foreign import capi
@@ -398,7 +396,7 @@ foreign import capi
398396--
399397-- /Pre-release/
400398--
401−setAccessed :: Toggle -> Config -> Config
399+setAccessed :: Switch -> Config -> Config
402400setAccessed = setFlag iN_ACCESS
403401
404402foreign import capi
@@ -410,7 +408,7 @@ foreign import capi
410408--
411409-- /Pre-release/
412410--
413−setOpened :: Toggle -> Config -> Config
411+setOpened :: Switch -> Config -> Config
414412setOpened = setFlag iN_OPEN
415413
416414foreign import capi
@@ -422,7 +420,7 @@ foreign import capi
422420--
423421-- /Pre-release/
424422--
425−setWriteClosed :: Toggle -> Config -> Config
423+setWriteClosed :: Switch -> Config -> Config
426424setWriteClosed = setFlag iN_CLOSE_WRITE
427425
428426foreign import capi
@@ -434,7 +432,7 @@ foreign import capi
434432--
435433-- /Pre-release/
436434--
437−setNonWriteClosed :: Toggle -> Config -> Config
435+setNonWriteClosed :: Switch -> Config -> Config
438436setNonWriteClosed = setFlag iN_CLOSE_NOWRITE
439437
440438foreign import capi
@@ -446,7 +444,7 @@ foreign import capi
446444--
447445-- /Pre-release/
448446--
449−setCreated :: Toggle -> Config -> Config
447+setCreated :: Switch -> Config -> Config
450448setCreated = setFlag iN_CREATE
451449
452450foreign import capi
@@ -458,7 +456,7 @@ foreign import capi
458456--
459457-- /Pre-release/
460458--
461−setDeleted :: Toggle -> Config -> Config
459+setDeleted :: Switch -> Config -> Config
462460setDeleted = setFlag iN_DELETE
463461
464462foreign import capi
@@ -470,7 +468,7 @@ foreign import capi
470468--
471469-- /Pre-release/
472470--
473−setMovedFrom :: Toggle -> Config -> Config
471+setMovedFrom :: Switch -> Config -> Config
474472setMovedFrom = setFlag iN_MOVED_FROM
475473
476474foreign import capi
@@ -482,7 +480,7 @@ foreign import capi
482480--
483481-- /Pre-release/
484482--
485−setMovedTo :: Toggle -> Config -> Config
483+setMovedTo :: Switch -> Config -> Config
486484setMovedTo = setFlag iN_MOVED_TO
487485
488486foreign import capi
@@ -494,7 +492,7 @@ foreign import capi
494492--
495493-- /Pre-release/
496494--
497−setModified :: Toggle -> Config -> Config
495+setModified :: Switch -> Config -> Config
498496setModified = setFlag iN_MODIFY
499497
500498-- | Set all tunable events 'On' or 'Off'. Equivalent to setting:
@@ -514,7 +512,7 @@ setModified = setFlag iN_MODIFY
514512--
515513-- /Pre-release/
516514--
517−setAllEvents :: Toggle -> Config -> Config
515+setAllEvents :: Switch -> Config -> Config
518516setAllEvents s =
519517 setRootDeleted s
520518 . setRootMoved s