diff options
Diffstat (limited to 'transfer')
| -rw-r--r-- | transfer/lib/prelude.tra | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/transfer/lib/prelude.tra b/transfer/lib/prelude.tra index a19c33601..c6bb7ea67 100644 --- a/transfer/lib/prelude.tra +++ b/transfer/lib/prelude.tra @@ -177,7 +177,7 @@ partition : (A : Type) -> (A -> Bool) -> List A -> Pair (List A) (List A) partition _ _ [] = ([],[]) partition A p (x::xs) = let r : Pair (List A) (List A) = partition A p xs - in if p x then (x :: fst r, snd r) else (fst r, x :: snd r) + in if p x then (x :: r.p1, r.p2) else (r.p1, x :: r.p2) -- Instances: |