Skip to content

Commit

Permalink
Fix warning
Browse files Browse the repository at this point in the history
  • Loading branch information
hsyl20 committed Aug 29, 2024
1 parent ff689aa commit de88a05
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion haskus-system/src/lib/Haskus/System/Linux/KernelEvent.hs
Original file line number Diff line number Diff line change
Expand Up @@ -61,7 +61,7 @@ parseKernelEvent bs = r
fields = Map.fromList -- create Map from (key,value) tuples
. fmap (toTuple . Text.splitOn "=") -- split "key=value"
. filter (not . Text.null) -- drop empty lines
$ tail bss -- drop the first line (it contains redundant info)
$ drop 1 bss -- drop the first line (it contains redundant info)

action = case fields Map.! "ACTION" of
"add" -> ActionAdd
Expand Down

0 comments on commit de88a05

Please sign in to comment.