fix docspec tests

swarm-game · Jul 26, 2023 · bb606b4 · bb606b4
1 parent d443f28
commit bb606b4
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Swarm/Game/Exception.hs b/src/Swarm/Game/Exception.hs
@@ -105,9 +105,10 @@ formatIncapableFix = \case
 -- >>> import Data.Either (fromRight)
 -- >>> import Control.Carrier.Throw.Either (runThrow)
 -- >>> import Control.Algebra (run)
+-- >>> import Swarm.Game.Failure (LoadingFailure)
 -- >>> w = mkEntity (defaultEntityDisplay 'l') "magic wand" [] [] [CAppear]
 -- >>> r = mkEntity (defaultEntityDisplay 'o') "the one ring" [] [] [CAppear]
--- >>> m = fromRight mempty . run . runThrow $ buildEntityMap [w,r]
+-- >>> m = fromRight mempty . run . runThrow @LoadingFailure $ buildEntityMap [w,r]
 -- >>> incapableError cs t = putStr . unpack $ formatIncapable m FixByEquip cs t
 --
 -- >>> incapableError (R.singletonCap CGod) (TConst As)