Merge pull request #3 from chrisdotcode/master

Remove warnings & add missing imports

Author: garyb

bower.json

@@ -17,13 +17,15 @@
     "package.json"
   ],
   "dependencies": {
-    "purescript-arrays": "~0.4.2",
-    "purescript-globals": "~0.2.1",
+    "purescript-arrays": "~0.4.4",
+    "purescript-either": "~0.2.3",
+    "purescript-functions": "~0.1.0",
+    "purescript-globals": "~0.2.2",
     "purescript-integers": "~0.2.1",
-    "purescript-lists": "~0.7.5",
-    "purescript-maps": "~0.5.0",
+    "purescript-lists": "~0.7.8",
+    "purescript-maps": "~0.5.4",
     "purescript-pathy": "~0.3.0",
-    "purescript-string-parsers": "~0.6.0"
+    "purescript-string-parsers": "~0.6.3"
   },
   "devDependencies": {
     "purescript-exceptions": "~0.3.0"

src/Data/URI.purs

@@ -6,17 +6,12 @@ import Control.Apply ((<*), (*>))
 import Data.Array (catMaybes)
 import Data.Either (Either(..), either)
 import Data.Maybe (Maybe(..))
-import Data.URI.Authority
-import Data.URI.Common
 import Data.URI.Fragment
 import Data.URI.RelativePart
 import Data.URI.HierarchicalPart
-import Data.URI.Host
-import Data.URI.Path
 import Data.URI.Query
 import Data.URI.Scheme
 import Data.URI.Types
-import Data.URI.UserInfo
 import qualified Data.String as S
 import Text.Parsing.StringParser (Parser(), ParseError(), runParser, try)
 import Text.Parsing.StringParser.Combinators (optionMaybe)

src/Data/URI/Authority.purs

@@ -2,16 +2,15 @@ module Data.URI.Authority where
 
 import Prelude
 import Control.Apply ((*>))
-import Data.Array (catMaybes)
-import Data.Int (fromNumber, toNumber)
+import Data.Int (fromNumber)
 import Data.Maybe (Maybe(..), maybe)
 import Data.Tuple(Tuple(..))
-import Data.List (List(..), fromList)
+import Data.List (fromList)
 import Data.URI.Common
 import Data.URI.Host
 import Data.URI.Types
 import Data.URI.UserInfo
-import Global (readInt, isNaN)
+import Global (readInt)
 import qualified Data.String as S
 import Text.Parsing.StringParser (Parser(), fail)
 import Text.Parsing.StringParser.Combinators (optionMaybe, sepBy1)

src/Data/URI/Common.purs

@@ -3,11 +3,10 @@ module Data.URI.Common where
 import Prelude
 import Control.Alt ((<|>))
 import Data.Array (replicateM)
-import Data.List (List(..), fromList)
+import Data.List (List(), fromList)
 import Data.Function (Fn5(), runFn5)
 import Data.Maybe (Maybe(..))
 import qualified Data.String as S
-import Data.URI.Types
 import Text.Parsing.StringParser (Parser(..), ParseError(..), unParser)
 import Text.Parsing.StringParser.String (string)
 import qualified Data.String.Regex as Rx

src/Data/URI/HierarchicalPart.purs

@@ -6,7 +6,6 @@ import Control.Apply ((*>))
 import Data.Array (catMaybes)
 import Data.Maybe (Maybe(..))
 import Data.URI.Authority
-import Data.URI.Common
 import Data.URI.Path
 import Data.URI.Types
 import qualified Data.String as S

src/Data/URI/Host.purs

@@ -3,15 +3,12 @@ module Data.URI.Host where
 import Prelude
 import Control.Alt ((<|>))
 import Control.Apply ((*>), (<*))
-import Data.Array (length)
-import Data.List (fromList)
 import Data.URI.Common
 import Data.URI.Types
 import qualified Data.String as S
 import Text.Parsing.StringParser (Parser(), try)
-import Text.Parsing.StringParser.Combinators ((<?>), many1, sepBy1)
+import Text.Parsing.StringParser.Combinators ((<?>), many1)
 import Text.Parsing.StringParser.String (string)
-import qualified Data.Array.Unsafe as U
 
 parseHost :: Parser Host
 parseHost = parseIPv6Address <|> parseIPv4Address <|> parseRegName

src/Data/URI/Path.purs

@@ -18,7 +18,6 @@ import Control.Bind ((=<<))
 import Data.Either (Either(..), either)
 import Data.Maybe (Maybe(..))
 import Data.Path.Pathy (parseAbsDir, parseRelDir, parseAbsFile, parseRelFile, sandbox, rootDir, (</>), unsafePrintPath)
-import Data.List (fromList)
 import Data.String (drop, length)
 import Data.URI.Common
 import Data.URI.Types

src/Data/URI/Query.purs

@@ -6,10 +6,9 @@ module Data.URI.Query
 import Prelude
 import Control.Alt
 import Control.Apply
-import qualified Data.String as S
 import Data.StrMap (StrMap(), fromList, toList)
 import Data.Tuple (Tuple(..))
-import Data.Maybe (Maybe(..), fromMaybe)
+import Data.Maybe (Maybe(..))
 import Data.URI.Common
 import Data.URI.Types
 import Text.Parsing.StringParser

src/Data/URI/RelativePart.purs

@@ -6,7 +6,6 @@ import Control.Apply ((*>))
 import Data.Array (catMaybes)
 import Data.Maybe (Maybe(..))
 import Data.URI.Authority
-import Data.URI.Common
 import Data.URI.Path
 import Data.URI.Types
 import qualified Data.String as S

src/Data/URI/Types.purs

@@ -1,15 +1,12 @@
 module Data.URI.Types where
 
 import Prelude
-import Data.Array (length)
 import Data.Either (Either())
 import Data.Maybe (Maybe())
 import Data.Path.Pathy (Path(), File(), Dir(), Abs(), Rel(), Sandboxed(), Unsandboxed())
 import Data.StrMap (StrMap())
 import Data.Tuple (Tuple())
 
-import qualified Data.Array.Unsafe as U
-
 -- | A generic URI
 data URI = URI (Maybe URIScheme) HierarchicalPart (Maybe Query) (Maybe Fragment)