playHelp :: Application -> Parent -> AppState
playHelp app parent = NoGUIAppState $ do
    file <- rm2m $ getDataFileName "manual/playHelp.txt"
    controls_ <- gets (^. controls)
    text <- (fmap (substitute (keysContext controls_))) <$> io (pFile file)
    return $ scrollingAppState app text parent
playHelp :: Application -> Parent -> AppState
playHelp app parent = NoGUIAppState $ do
    file <- rm2m $ getDataFileName "manual/playHelp.txt"
    controls_ <- gets (^. controls)
    text <- (fmap (substitute (keysContext controls_))) <$> io (pFile file)
    return $ scrollingAppState app text parent
playHelp app parent = NoGUIAppState $ do
    file <- rm2m $ getDataFileName "manual/playHelp.txt"
    controls_ <- gets (^. controls)
    text <- (fmap (substitute (keysContext controls_))) <$> io (pFile file)
    return $ scrollingAppState app text parent