diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,5 +1,9 @@
 	# Revision history for hanabi-dealer
 
+	## 0.7.1.1 -- 2020-03-13
+
+	* remove reference to a not-publicly-available strategy
+
 	## 0.7.1.0 -- 2020-03-13
 
 	* fix freeze after invalid move when played locally
diff --git a/Game/Hanabi.hs b/Game/Hanabi.hs
--- a/Game/Hanabi.hs
+++ b/Game/Hanabi.hs
@@ -718,7 +718,7 @@
 unknown :: GameSpec -> Possibilities
 unknown gs = (64 - bit (6 - numColors (rule gs)),  31)
 
-shuffle :: RandomGen g => [a] -> g -> ([a], g)
+shuffle :: RandomGen g => [c] -> g -> ([c], g)
 shuffle xs = shuf [] xs $ length xs
 shuf :: RandomGen g => [a] -> [a] -> Int -> g -> ([a], g)
 shuf result _  0 gen  = (result, gen)
diff --git a/Game/Hanabi/Client.hs b/Game/Hanabi/Client.hs
--- a/Game/Hanabi/Client.hs
+++ b/Game/Hanabi/Client.hs
@@ -35,6 +35,13 @@
 client :: Game.Hanabi.Msg.Options -> IO ()
 client options = clientJSM options
 #else
+
+{-
+When building with GHC,
+1. miso has to be built with --flags="jsaddle" option;
+2. the resulting executable does not work with Firefox or Konqueror---use Chromium. (https://github.com/aveltras/arohi-skeleton/issues/1)
+-}
+
 # ifdef IOS
 import Language.Javascript.JSaddle.WKWebView as JSaddle
 
@@ -64,6 +71,7 @@
 jsmToApp f = jsaddleOr defaultConnectionOptions (f >> syncPoint) jsaddleApp
 # endif
 #endif
+
 -- Miso's implementation of WebSockets uses global IORef.
 -- https://github.com/dmjio/miso/blob/master/frontend-src/Miso/Subscription/WebSocket.hs
 
diff --git a/all.hs b/all.hs
--- a/all.hs
+++ b/all.hs
@@ -9,8 +9,6 @@
 import Game.Hanabi.Msg(defaultOptions, Options(..))
 
 import Game.Hanabi.Strategies.SimpleStrategy hiding (main)
-import Game.Hanabi.Strategies.Ryunosuke hiding (main)
-
 main :: IO ()
 main = do putStrLn "localhost:8080"  -- Seemingly other port than 8080 does not work.
           let opt = defaultOptions{version="hanabi-dealer quickbuilt server", strategies=strs}
@@ -25,7 +23,6 @@
 
 strs :: [(String, IO (DynamicStrategy IO))]
 strs = [
-     ("Stupid example strategy", return $ mkDS "Stupid example strategy" S),
-     ("Ryunosuke", return $ mkDS "Ryunosuke" Ry)
+     ("Stupid example strategy", return $ mkDS "Stupid example strategy" $ S)
  -- x , ("Sontakki", return $ mkDS "Sontakki" (Sontakki emptyDefault))
   ]
diff --git a/client.hs b/client.hs
--- a/client.hs
+++ b/client.hs
@@ -2,13 +2,11 @@
 import Game.Hanabi.Client
 
 import Game.Hanabi.Strategies.SimpleStrategy hiding (main)
-import Game.Hanabi.Strategies.Ryunosuke hiding (main)
 
 main = client defOpt{strategies=strs}
 
 -- strs :: [(String, IO (DynamicStrategy IO))]
 strs = [
-     ("Stupid example strategy", return $ mkDS "Stupid example strategy" $ S),
-     ("Ryunosuke", return $ mkDS "Ryunosuke" $ Ry)
+     ("Stupid example strategy", return $ mkDS "Stupid example strategy" $ S)
  -- x , ("Sontakki", return $ mkDS "Sontakki" (Sontakki emptyDefault))
   ]
diff --git a/hanabi-dealer.cabal b/hanabi-dealer.cabal
--- a/hanabi-dealer.cabal
+++ b/hanabi-dealer.cabal
@@ -10,7 +10,7 @@
 -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             0.7.1.0
+version:             0.7.1.1
 
 -- A short (one-line) description of the package.
 synopsis:            Hanabi card game
diff --git a/server.hs b/server.hs
--- a/server.hs
+++ b/server.hs
@@ -2,13 +2,11 @@
 import Game.Hanabi.VersionInfo
 
 import Game.Hanabi.Strategies.SimpleStrategy hiding (main)
-import Game.Hanabi.Strategies.Ryunosuke hiding (main)
 
 main = server defOpt{strategies=strs}
 
 strs :: [(String, IO (DynamicStrategy IO))]
 strs = [
-     ("Stupid example strategy", return $ mkDS "Stupid example strategy" S),
-     ("Ryunosuke", return $ mkDS "Ryunosuke" $ Ry)
+     ("Stupid example strategy", return $ mkDS "Stupid example strategy" S)
  -- x , ("Sontakki", return $ mkDS "Sontakki" (Sontakki emptyDefault))
   ]