Workaround for weird type error (see http://ghc.haskell.org/trac/ghc/…

…ticket/8214)
MedeaMelana · Sep 2, 2013 · 3772bb2 · 3772bb2
1 parent 76ef2fb
commit 3772bb2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Magic/src/Magic/Abilities.hs b/Magic/src/Magic/Abilities.hs
@@ -161,4 +161,4 @@ ifSelfWasOrIsOnBattlefield f events rSelf you =
     if ok then f events rSelf you else mempty
   where
     ok = fst rSelf == Some Battlefield
-      || not (null [ undefined | DidMoveObject (Just (Some Battlefield, _)) newRef <- events, newRef == rSelf ])
+      || not (null ([ () | DidMoveObject (Just (Some Battlefield, _)) newRef <- events, newRef == rSelf ] :: [()]))