Permalink
Browse files

Using MaybePair

  • Loading branch information...
1 parent f108292 commit 31b0d64bc65c1f9e2c1b2e6ccf0255fc2af8eac1 @bytbox committed Feb 6, 2012
Showing with 3 additions and 1 deletion.
  1. +3 −1 Data/LHA.lhs
View
@@ -106,7 +106,7 @@
^ Status code of the particle.
-> , mothers :: (Int, Maybe Int)
+> , mothers :: MaybePair Int
^ The mother particles.
@@ -148,3 +148,5 @@
> statusFromInt (3) = DocumentationOnly
> statusFromInt (-9) = IncomingBeam
+> data MaybePair a = PZero | POne a | PBoth (a, a)
+

0 comments on commit 31b0d64

Please sign in to comment.