upgrade for purescript 0.10 (#25)

* upgrade for purescript 0.10

Author: zhangchiqing

README.md

@@ -30,6 +30,8 @@ main = unsafePartial $ void $ launchAff $ do
 
 See the module documentation for a [full list of these helpers](docs/Database.Mongo.Mongo.md#find)
 
+See the test cases for [more examples](test/Database/Mongo/)
+
 ### Module documentation
 
 - [Database.Mongo.Mongo](docs/Database.Mongo.Mongo.md)

bower.json

@@ -13,13 +13,14 @@
     "tests"
   ],
   "dependencies": {
-    "purescript-aff": "^1.0.0",
-    "purescript-argonaut": "^1.0.0",
-    "purescript-datetime": "^1.0.0",
-    "purescript-foldable-traversable": "^1.0.0",
-    "purescript-foreign": "^1.0.0",
-    "purescript-string-parsers": "^1.0.1",
-    "purescript-uri": "^1.0.0"
+    "purescript-aff": "^2.0.2",
+    "purescript-argonaut": "^2.0.0",
+    "purescript-datetime": "^2.0.0",
+    "purescript-foldable-traversable": "^2.0.0",
+    "purescript-foreign": "^3.0.1",
+    "purescript-string-parsers": "^2.0.0",
+    "purescript-uri": "^2.0.0",
+    "purescript-transformers": "^2.1.0"
   },
   "homepage": "https://github.com/dicefm/purescript-node-mongodb",
   "authors": [
@@ -34,5 +35,9 @@
     "mongodb",
     "mongo"
   ],
-  "license": "MIT"
+  "license": "MIT",
+  "devDependencies": {
+    "purescript-debug": "^2.0.0",
+    "purescript-assert": "^2.0.0"
+  }
 }

examples/Examples/Data/Event.purs

@@ -10,8 +10,8 @@ module Database.Mongo.Bson.BsonValue
   ) where
 
 import Data.Argonaut.Core (Json())
-import Data.String.Regex
-import Data.Tuple
+import Data.String.Regex (Regex)
+import Data.Tuple (Tuple(..))
 
 type Field = Tuple String BsonValue
 

examples/Examples/Database/Mongo/Find.purs

@@ -17,23 +17,23 @@ module Database.Mongo.Mongo
   , updateMany, updateMany'
   ) where
 
-import Prelude
+import Prelude (class Show, Unit, show, ($), (<<<))
 import Control.Monad.Aff (Aff(), makeAff', Canceler(), nonCanceler)
 import Control.Monad.Eff (Eff())
 import Control.Monad.Eff.Exception (Error(), error)
 
 import Data.Argonaut.Core (Json())
 import Data.Argonaut.Encode (class EncodeJson, encodeJson)
 import Data.Argonaut.Decode (class DecodeJson, decodeJson)
-import Data.Either
+import Data.Either (Either(..))
 import Data.Function.Uncurried (Fn3(), runFn3, Fn4(), runFn4, Fn5(), runFn5, Fn6(), runFn6, Fn7(), runFn7, Fn8(), runFn8)
 
 import Database.Mongo.Options (InsertOptions(), insertOptions, UpdateOptions(), updateOptions)
 import Database.Mongo.Results (WriteResult())
 import Database.Mongo.Bson.BsonValue (Document(), printBson)
-import Data.URI
+import Data.URI (printURIRef, runParseURIRef)
 
-import Text.Parsing.StringParser
+import Text.Parsing.StringParser (ParseError)
 
 -- | The effect type for DB request made with Mongo
 foreign import data DB :: !

examples/Examples/Database/Mongo/Insert.purs

@@ -6,13 +6,12 @@ module Database.Mongo.Options
   , defaultUpdateOptions, updateOptions
   ) where
 
-import Prelude
+import Prelude (pure, bind, ($))
 import Data.Argonaut ((~>), (:=), (.?), jsonEmptyObject)
 import Data.Argonaut.Core (Json())
 import Data.Argonaut.Encode (class EncodeJson, encodeJson)
 import Data.Argonaut.Decode (class DecodeJson, decodeJson)
-import Data.Either
-import Data.Maybe
+import Data.Maybe (Maybe(..))
 
 -- | The type of WriteConcern
 type WriteConcern = Number

examples/Examples/Database/Mongo/Update.purs

@@ -2,12 +2,12 @@ module Database.Mongo.Results
   ( WriteResult()
   ) where
 
-import Prelude
-import Data.Argonaut ((.?), jsonEmptyObject)
+import Prelude (pure, bind, ($))
+import Data.Argonaut ((.?), (:=), (~>), jsonEmptyObject)
 import Data.Argonaut.Encode (class EncodeJson)
 import Data.Argonaut.Decode (class DecodeJson, decodeJson)
-import Data.Either
-import Data.Maybe
+import Data.Either (Either(..))
+import Data.Maybe (Maybe(..), fromMaybe)
 
 newtype WriteResult = WriteResult
   { success  :: Boolean
@@ -33,14 +33,23 @@ instance decodeJsonWriteResult :: DecodeJson WriteResult where
       }
 
 instance encodeJsonWriteResult :: EncodeJson WriteResult where
-  encodeJson (WriteResult w) = jsonEmptyObject
+  encodeJson (WriteResult w)
+    =  "ok"        := boolToJsNumber w.success
+    ~> "n"         := w.total
+    ~> "nInserted" := fromMaybe 0.0 w.inserted
+    ~> "nModified" := fromMaybe 0.0 w.modified
+    ~> jsonEmptyObject
+
+boolToJsNumber :: Boolean -> Int
+boolToJsNumber false = 0
+boolToJsNumber true = 1
 
 -- node mongodb module sends back `1` to mean `true`, this is why we need types
 -- as Javascript is abused!
-jsNumberToBool :: Either String Int -> Boolean
+jsNumberToBool :: Int -> Boolean
 jsNumberToBool e = case e of
-  Left _  -> false
-  Right x -> if x == 1 then true else false
+  1 -> true
+  _ -> false
 
 extract :: Either String Number -> Maybe Number
 extract e = case e of