Fix hash decoding

Author: natefaubion

spago.lock

@@ -15,6 +15,7 @@
             "halogen",
             "halogen-subscriptions",
             "integers",
+            "js-uri",
             "language-cst-parser",
             "lazy",
             "lists",

spago.yaml

@@ -11,6 +11,7 @@ package:
     - halogen
     - halogen-subscriptions
     - integers
+    - js-uri
     - language-cst-parser
     - lazy
     - lists

src/Registry/PackageViewer/App/Route.purs

@@ -17,6 +17,7 @@ import Data.Maybe (Maybe(..), fromMaybe, maybe)
 import Data.String (Pattern(..))
 import Data.String as String
 import Effect.Class (class MonadEffect, liftEffect)
+import JSURI (decodeURIComponent)
 import Registry.PackageViewer.Fetch (PackageIdentifier)
 import Registry.PackageViewer.FileTree (FilePath(..), printFilePath)
 import Routing.Hash as Hash
@@ -65,8 +66,8 @@ parseRouteParts parts =
       }
 
 parseRoute :: String -> Maybe Route
-parseRoute fullPath = case parseRouteParts fullPath of
-  { path: List.Cons "" (List.Cons name (List.Cons version tl)), hash } -> do
+parseRoute fullPath = case parseRouteParts <$> decodeURIComponent fullPath of
+  Just { path: List.Cons "" (List.Cons name (List.Cons version tl)), hash } -> do
     pure $ Package { name, version } $ parseExactFile (parseLineRange =<< hash) tl
   _ ->
     Nothing