fix #37

Author: Marcin Szamotulski

src/Routing/Parser.purs

@@ -2,16 +2,20 @@ module Routing.Parser (
   parse
   ) where
 
-import Prelude (map, discard, (>>>), ($), (<<<), (==), (<*>), (<$>), (<=))
-import Routing.Types (Route, RoutePart(..))
 import Data.Array as A
 import Data.Map as M
 import Data.String as S
 import Control.MonadPlus (guard)
+import Data.Either (fromRight)
 import Data.List (fromFoldable, List)
 import Data.Maybe (Maybe, fromMaybe)
+import Data.String.Regex (regex, split) as R
+import Data.String.Regex.Flags (noFlags) as R
 import Data.Traversable (traverse)
 import Data.Tuple (Tuple(..))
+import Partial.Unsafe (unsafePartial)
+import Prelude (map, discard, (>>>), ($), (<<<), (==), (<*>), (<$>), (<=))
+import Routing.Types (Route, RoutePart(..))
 
 -- | Parse part of hash. Will return `Query (Map String String)` for query
 -- | i.e. `"?foo=bar&bar=baz"` -->
@@ -36,4 +40,4 @@ parsePart str = fromMaybe (Path str) do
 -- | applied to every hash part (usually `decodeURIComponent`)
 parse :: (String -> String) -> String -> Route
 parse decoder hash =
-  map ( decoder >>> parsePart ) $ fromFoldable (S.split (S.Pattern "/") hash)
+  map ( decoder >>> parsePart ) $ fromFoldable (R.split (unsafePartial fromRight $ R.regex "\\/|(?=\\?)" R.noFlags) hash)

test/Test/Main.purs

@@ -39,6 +39,7 @@ routing =
 main :: Eff (console :: CONSOLE) Unit
 main = do
   print "Foo: " $ match routing "foo/12/?welp='hi'&b=false" -- foo
+  print "Foo: " $ match routing "foo/12?welp='hi'&b=false" -- foo
   print "Quux: " $ match routing "/quux/42" -- quux
   print "Baz: " $ match routing "/123/" -- baz
   print "End: " $ match routing "/1" -- end