Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

More choices

  • Loading branch information...
commit de73715af621941d0db858498748428d65285818 1 parent 133bcf8
@MedeaMelana authored
Showing with 6 additions and 2 deletions.
  1. +6 −2 Types.hs
View
8 Types.hs
@@ -258,8 +258,12 @@ instance MonadPlus Magic where
mplus = Plus
data Choice
- = TargetPlayer (Ref Player)
- | TargetObject (Ref Object)
+ = ChoosePlayer (Ref Player)
+ | ChooseObject (Ref Object)
+ | ChooseColor Color
+ | ChooseNumber Int
+ | Pass
+ | Concede
$(mkLabels [''World, ''Player, ''Object, ''Zone, ''Group,
''PermanentType, ''Action])

0 comments on commit de73715

Please sign in to comment.
Something went wrong with that request. Please try again.