Merge pull request #1 from garyb/data

Move namespace to Data.Codec

Author: garyb

bower.json

@@ -17,7 +17,7 @@
   ],
   "dependencies": {
     "purescript-argonaut-core": "^3.1.0",
-    "purescript-codec": "^1.0.0",
+    "purescript-codec": "^2.0.0",
     "purescript-generics-rep": "^5.1.0"
   },
   "devDependencies": {

package.json

@@ -7,7 +7,7 @@
   },
   "devDependencies": {
     "pulp": "^11.0.0",
-    "purescript": "^0.11.3",
+    "purescript": "^0.11.5",
     "purescript-psa": "^0.5.1",
     "rimraf": "^2.6.1"
   }

src/Control/Codec/Argonaut.purs renamed to src/Data/Codec/Argonaut.purs

@@ -1,4 +1,4 @@
-module Control.Monad.Codec.Argonaut
+module Data.Codec.Argonaut
   ( JsonCodec
   , JsonDecodeError(..)
   , printJsonDecodeError
@@ -23,23 +23,23 @@ module Control.Monad.Codec.Argonaut
 
 import Prelude
 
-import Control.Monad.Codec (BasicCodec, Codec, GCodec(..), basicCodec, bihoistGCodec, decode, encode)
-import Control.Monad.Codec (decode, encode, (~), (<~<)) as Exports
 import Control.Monad.Reader (ReaderT(..), runReaderT)
 import Control.Monad.Writer (writer, mapWriter)
 import Data.Argonaut.Core as J
 import Data.Array as A
 import Data.Bifunctor as BF
+import Data.Codec (BasicCodec, Codec, GCodec(..), basicCodec, bihoistGCodec, decode, encode)
+import Data.Codec (decode, encode, (~), (<~<)) as Exports
 import Data.Either (Either(..))
 import Data.Generic.Rep (class Generic)
 import Data.Generic.Rep.Show (genericShow)
 import Data.Int as I
 import Data.List as L
 import Data.Maybe (Maybe(..), maybe)
+import Data.Profunctor.Star (Star(..))
 import Data.String as S
 import Data.StrMap as SM
 import Data.Traversable (traverse)
-import Data.Profunctor.Star (Star(..))
 import Data.Tuple (Tuple(..))
 
 -- | Codec type for `Json` values.

src/Control/Codec/Argonaut/Common.purs renamed to src/Data/Codec/Argonaut/Common.purs

@@ -1,16 +1,16 @@
-module Control.Monad.Codec.Argonaut.Common
-  ( module Control.Monad.Codec.Argonaut.Common
-  , module Control.Monad.Codec.Argonaut
+module Data.Codec.Argonaut.Common
+  ( module Data.Codec.Argonaut.Common
+  , module Data.Codec.Argonaut
   ) where
 
 import Prelude hiding (map)
 
-import Control.Monad.Codec (basicCodec)
-import Control.Monad.Codec.Argonaut (JIndexedCodec, JPropCodec, JsonCodec, JsonDecodeError(..), array, boolean, char, decode, encode, index, indexedArray, int, jarray, jobject, json, null, number, object, printJsonDecodeError, prop, string, (<~<), (~))
-import Control.Monad.Codec.Argonaut.Sum (Tag(..), taggedSum)
 import Data.Argonaut.Core as J
 import Data.Array as A
 import Data.Bifunctor as BF
+import Data.Codec (basicCodec)
+import Data.Codec.Argonaut (JIndexedCodec, JPropCodec, JsonCodec, JsonDecodeError(..), array, boolean, char, decode, encode, index, indexedArray, int, jarray, jobject, json, null, number, object, printJsonDecodeError, prop, string, (<~<), (~))
+import Data.Codec.Argonaut.Sum (Tag(..), taggedSum)
 import Data.Either (Either(..))
 import Data.List as L
 import Data.Map as M

src/Control/Codec/Argonaut/Compat.purs renamed to src/Data/Codec/Argonaut/Compat.purs

@@ -1,17 +1,17 @@
 -- | Codecs that are compatible with `purescript-argonaut-codecs`.
-module Control.Monad.Codec.Argonaut.Compat
-  ( module Control.Monad.Codec.Argonaut.Compat
-  , module Control.Monad.Codec.Argonaut
+module Data.Codec.Argonaut.Compat
+  ( module Data.Codec.Argonaut.Compat
+  , module Data.Codec.Argonaut
   , module Common
   ) where
 
 import Prelude
 
-import Control.Monad.Codec (basicCodec, mapCodec)
-import Control.Monad.Codec.Argonaut (JIndexedCodec, JPropCodec, JsonCodec, JsonDecodeError(..), array, boolean, char, decode, encode, index, indexedArray, int, jarray, jobject, json, null, number, object, printJsonDecodeError, prop, string, (<~<), (~))
-import Control.Monad.Codec.Argonaut.Common (either, list, map, tuple) as Common
 import Data.Argonaut.Core as J
 import Data.Bifunctor as BF
+import Data.Codec (basicCodec, mapCodec)
+import Data.Codec.Argonaut (JIndexedCodec, JPropCodec, JsonCodec, JsonDecodeError(..), array, boolean, char, decode, encode, index, indexedArray, int, jarray, jobject, json, null, number, object, printJsonDecodeError, prop, string, (<~<), (~))
+import Data.Codec.Argonaut.Common (either, list, map, tuple) as Common
 import Data.Either (Either)
 import Data.Functor as F
 import Data.Maybe (Maybe(..))

src/Control/Codec/Argonaut/Sum.purs renamed to src/Data/Codec/Argonaut/Sum.purs

@@ -1,21 +1,21 @@
-module Control.Monad.Codec.Argonaut.Sum
+module Data.Codec.Argonaut.Sum
   ( Tag(..)
   , taggedSum
   ) where
 
 import Prelude
 
-import Control.Monad.Codec (GCodec(..), decode, encode)
-import Control.Monad.Codec.Argonaut (JsonCodec, JsonDecodeError, jobject, json, prop, string)
 import Control.Monad.Reader (ReaderT(..))
 import Control.Monad.Writer (Writer, writer)
 import Data.Argonaut.Core as J
+import Data.Codec (GCodec(..), decode, encode)
+import Data.Codec.Argonaut (JsonCodec, JsonDecodeError, jobject, json, prop, string)
 import Data.Either as E
+import Data.Newtype (class Newtype)
+import Data.Profunctor.Star (Star(..))
 import Data.StrMap as SM
 import Data.StrMap.ST as SMST
-import Data.Profunctor.Star (Star(..))
 import Data.Tuple (Tuple(..))
-import Data.Newtype (class Newtype)
 
 -- | A tag value for a case in a sum type.
 newtype Tag = Tag String

test/Test/Common.purs

@@ -2,10 +2,10 @@ module Test.Common where
 
 import Prelude
 
-import Control.Monad.Codec.Argonaut.Common as JA
 import Control.Monad.Eff.Console (log)
 import Control.Monad.Gen as Gen
 import Control.Monad.Gen.Common as GenC
+import Data.Codec.Argonaut.Common as JA
 import Data.Map.Gen (genMap)
 import Data.String.Gen (genAsciiString)
 import Data.StrMap.Gen (genStrMap)

test/Test/Compat.purs

@@ -2,11 +2,11 @@ module Test.Compat where
 
 import Prelude
 
-import Control.Monad.Codec.Argonaut.Compat as JA
 import Control.Monad.Eff.Console (log)
 import Control.Monad.Gen.Common as GenC
 import Data.Argonaut.Decode (class DecodeJson, decodeJson)
 import Data.Argonaut.Encode (class EncodeJson, encodeJson)
+import Data.Codec.Argonaut.Compat as JA
 import Data.Either (Either(..))
 import Data.String.Gen (genAsciiString)
 import Data.StrMap.Gen (genStrMap)

test/Test/Prim.purs

@@ -2,12 +2,12 @@ module Test.Prim where
 
 import Prelude
 
-import Control.Monad.Codec.Argonaut.Common as JA
 import Control.Monad.Eff.Console (log)
 import Control.Monad.Gen as Gen
 import Data.Argonaut.Core as J
 import Data.Argonaut.Gen (genJson)
 import Data.Char.Gen (genAsciiChar)
+import Data.Codec.Argonaut.Common as JA
 import Data.String.Gen (genAsciiString)
 import Data.StrMap.Gen (genStrMap)
 import Test.QuickCheck (QC, Result, quickCheck)

test/Test/Util.purs

@@ -2,8 +2,8 @@ module Test.Util where
 
 import Prelude
 
-import Control.Monad.Codec.Argonaut.Common as JA
 import Control.Monad.Gen as Gen
+import Data.Codec.Argonaut.Common as JA
 import Data.Either (Either(..))
 import Test.QuickCheck (Result, (===))
 import Test.QuickCheck.Gen (Gen)