Skip to content

Instantly share code, notes, and snippets.

@aaronj1335

aaronj1335/try_state.hs

Created November 27, 2012 03:25
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save aaronj1335/4152178 to your computer and use it in GitHub Desktop.
Save aaronj1335/4152178 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
try_state.hs
Prelude> import qualified Control.Monad.State
Prelude Control.Monad.State> let fromStoAandS c | c `mod` 5 == 0 = ("foo",c+1) | otherwise = ("bar",c+1)
Prelude Control.Monad.State> let stateIntString = State fromStoAandS
<interactive>:6:22:
Not in scope: data constructor `State'
Perhaps you meant `Control.Monad.State.StateT' (imported from Control.Monad.State)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment