Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Update for PureScript 0.11 #1

Open
wants to merge 3 commits into
base: master
Choose a base branch
from
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
16 changes: 8 additions & 8 deletions bower.json
Original file line number Diff line number Diff line change
Expand Up @@ -17,15 +17,15 @@
],
"dependencies": {
"rot.js": "^0.5.0",
"purescript-base": "^1.0.0",
"purescript-functions": "^1.0.0",
"purescript-arrays": "^1.0.0",
"purescript-options": "^1.0.0",
"purescript-foreign": "^1.0.0",
"purescript-eff": "^1.0.0"
"purescript-prelude": "^3.0.0",
"purescript-functions": "^3.0.0",
"purescript-arrays": "^4.0.0",
"purescript-options": "^3.0.0",
"purescript-foreign": "^4.0.0",
"purescript-eff": "^3.0.0"
},
"devDependencies": {
"purescript-psci-support": "^1.0.0"
"purescript-psci-support": "^3.0.0"
},
"version": "0.0.1"
"version": "0.1.0"
}
10 changes: 5 additions & 5 deletions src/RotJS/Display/RotJS-Display.purs
Original file line number Diff line number Diff line change
Expand Up @@ -17,17 +17,17 @@ module RotJS.Display (
) where

import Prelude
import Control.Monad.Eff (Eff)
import Control.Monad.Eff (Eff, kind Effect)
import Data.Function.Uncurried (Fn4, runFn4, Fn2, runFn2)
import Data.Options (Option(), Options(), options, opt, (:=))
import Data.Options (Option(), Options(), options, opt)
import Data.Foreign (Foreign())

-- | `TTY` effect denotes computations which manipulate the ROT.js Display`
foreign import data TTY :: !
foreign import data TTY :: Effect

-- | ROT.js display context
foreign import data Display :: *
foreign import data DisplayConfig :: *
foreign import data Display :: Type
foreign import data DisplayConfig :: Type

type Coord = {x :: Int, y :: Int}
type Color = String
Expand Down
2 changes: 1 addition & 1 deletion src/RotJS/FOV/RotJS-FOV.purs
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ module RotJS.FOV (FOV, TransparencyMap, TransparencyCell, VisibilityMap, Visibil

import Data.Function.Uncurried (Fn4, runFn4)

foreign import data FOV :: *
foreign import data FOV :: Type

type TransparencyCell = Boolean
type VisibilityCell = Boolean
Expand Down
4 changes: 2 additions & 2 deletions src/RotJS/Map/RotJS-Map.purs
Original file line number Diff line number Diff line change
Expand Up @@ -17,7 +17,7 @@ module RotJS.Map ( arena

import Control.Monad.Eff (Eff)
import Data.Function.Uncurried (Fn3, runFn3, Fn2, runFn2)
import Data.Options (Option(), Options(), options, opt, (:=))
import Data.Options (Option(), Options(), options, opt)
import RotJS.RNG as Random
import Data.Foreign (Foreign())

Expand Down Expand Up @@ -57,7 +57,7 @@ foreign import buildRogueRaw :: forall eff. Fn2 Int Int (Eff (rotrng :: Random.R
-- dugPercentage – algorithm stops after this fraction of map area has been dug out; default = 0.2
-- timeLimit – algorithm stops after this amount of milliseconds has passed

foreign import data MapGenConfig :: *
foreign import data MapGenConfig :: Type

roomWidth :: Option MapGenConfig (Array Int)
roomWidth = opt "roomWidth"
Expand Down
2 changes: 1 addition & 1 deletion src/RotJS/Path/RotJS-Path.purs
Original file line number Diff line number Diff line change
Expand Up @@ -11,7 +11,7 @@ type TraversableMap = { width :: Int,
type Coord = {x :: Int, y :: Int}
type Path = Array Coord

foreign import data PathGen :: *
foreign import data PathGen :: Type

foreign import dijkstraRaw :: Fn3 TraversableMap
Int
Expand Down
4 changes: 2 additions & 2 deletions src/RotJS/RNG/RotJS-RNG.purs
Original file line number Diff line number Diff line change
Expand Up @@ -7,12 +7,12 @@ module RotJS.RNG ( RNG
) where

import Prelude
import Control.Monad.Eff (Eff)
import Control.Monad.Eff (Eff, kind Effect)
import Data.Function.Uncurried (Fn2, runFn2)


-- | `RNG` effect denotes computations which manipulate the ROT.js RNG`
foreign import data RNG :: !
foreign import data RNG :: Effect

foreign import setSeed :: forall eff. Int -> Eff (rotrng :: RNG | eff) Unit
foreign import getSeed :: forall eff. Eff (rotrng :: RNG | eff) Int
Expand Down
6 changes: 3 additions & 3 deletions src/RotJS/Scheduler/RotJS-Scheduler.purs
Original file line number Diff line number Diff line change
Expand Up @@ -18,12 +18,12 @@ module RotJS.Scheduler (
) where

import Prelude
import Control.Monad.Eff (Eff)
import Control.Monad.Eff (Eff, kind Effect)
import Data.Function.Uncurried (Fn2, runFn2, Fn3, runFn3)

-- | `Scheduling` effect denotes computations which manipulate the ROT.js Scheduler`
foreign import data SCHEDULING :: !
foreign import data SchedulerObject :: *
foreign import data SCHEDULING :: Effect
foreign import data SchedulerObject :: Type

data SimpleScheduler = SimpleScheduler SchedulerObject
data ActionScheduler = ActionScheduler SchedulerObject
Expand Down