Skip to content

Commit

Permalink
Update invaders
Browse files Browse the repository at this point in the history
  • Loading branch information
edwinb committed Jan 20, 2016
1 parent 2af884e commit d4f999c
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 3 deletions.
3 changes: 1 addition & 2 deletions Invaders/Rnd.idr
Original file line number Diff line number Diff line change
Expand Up @@ -5,8 +5,7 @@ import Effects
data Random : Effect where
GetRandom : Random Int Int (\v => Int)

using (m : Type -> Type)
instance Handler Random m where
Handler Random m where
handle seed GetRandom k
= let seed' = assert_total ((1664525 * seed + 1013904223) `prim__sremInt` (pow 2 32)) in
k seed' seed'
Expand Down
2 changes: 1 addition & 1 deletion Invaders/invaders.ipkg
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
package invaders

modules = Starfield, Gamestate, Aliens, Rnd, Main
opts = "-p effects -p sdl --warnreach --dumpcases invaders.dc"
opts = "-p effects -p sdl --warnreach"

executable = invaders
main = Main
Expand Down

0 comments on commit d4f999c

Please sign in to comment.