maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Link up messages to the overall game

Browse source 
Add a "say" function for saying messages within an app monad to the
user, and link everything up to display them and track their history
This commit is contained in:
Griffin Smith 2019-09-01 16:21:45 -04:00
parent 2fd3e4c9ad
commit adb3b74c0c
9 changed files with 155 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/Xanthous/Messages.hs
View file

@ -9,19 +9,19 @@ module Xanthous.Messages
, messages
, message
) where
--------------------------------------------------------------------------------
import Xanthous.Prelude
import Control.Monad.Random.Class (MonadRandom)
import Data.Aeson (FromJSON, ToJSON, toJSON)
import Data.Aeson.Generic.DerivingVia
import Data.FileEmbed
import Data.List.NonEmpty
import Test.QuickCheck hiding (choose)
import Test.QuickCheck.Arbitrary.Generic
import Test.QuickCheck.Instances.UnorderedContainers ()
import Text.Mustache
import Data.Aeson (FromJSON, ToJSON)
import Data.Aeson.Generic.DerivingVia
import Data.FileEmbed
import qualified Data.Yaml as Yaml
import Data.Aeson (toJSON)
import Control.Monad.Random.Class (MonadRandom)
import Xanthous.Random
import Xanthous.Orphans ()