Skip to content
Snippets Groups Projects
Commit 89b0f544 authored by vdukhovni's avatar vdukhovni
Browse files

Resolve non-exhaustive pattern match warnings

parent f1e64178
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 6 additions and 4 deletions
tests/ResourceLimit.hs
+ 6
− 4
View file @ 89b0f544
...@@ -10,7 +10,9 @@ main = do ...@@ -10,7 +10,9 @@ main = do
setResourceLimit ResourceCPUTime setResourceLimit ResourceCPUTime
(ResourceLimits (ResourceLimit soft) (ResourceLimit hard)) (ResourceLimits (ResourceLimit soft) (ResourceLimit hard))
r <- getResourceLimit ResourceCPUTime r <- getResourceLimit ResourceCPUTime
let (ResourceLimit s) = softLimit r soft @?= case softLimit r of
let (ResourceLimit h) = hardLimit r ResourceLimit l -> l
s @?= soft _ -> 0
h @?= hard hard @?= case hardLimit r of
ResourceLimit l -> l
_ -> 0
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment