fix peel type

Author: safareli

src/Data/Path/Pathy.purs

@@ -332,21 +332,15 @@ infixl 6 parentAppend as <..>
 -- | if the last path segment is root directory, current directory, or parent
 -- | directory).
 peel
-  :: forall a b s
-   . Path a b s
-  -> Maybe (Tuple (Path a Dir Unsandboxed) (Name b))
-peel = unsafeCoerce unsafePeel
-
-unsafePeel
   :: forall a b s
    . Path a b s
   -> Maybe (Tuple (Path a Dir s) (Name b))
-unsafePeel Current = Nothing
-unsafePeel Root = Nothing
-unsafePeel p@(ParentIn _) = case canonicalize' p of
-  Tuple true p' -> unsafePeel p'
+peel Current = Nothing
+peel Root = Nothing
+peel p@(ParentIn _) = case canonicalize' p of
+  Tuple true p' -> peel p'
   _ -> Nothing
-unsafePeel (In p n) = Just $ Tuple p n
+peel (In p n) = Just $ Tuple p n
 
 -- | Returns the depth of the path. This may be negative in some cases, e.g.
 -- | `./../../../` has depth `-3`.
@@ -482,7 +476,7 @@ relativeTo p1 p2 = relativeTo' (canonicalize p1) (canonicalize p2)
   relativeTo' cp1 cp2
     | identicalPath cp1 cp2 = pure Current
     | otherwise = do
-      Tuple cp1Path name <- unsafePeel cp1
+      Tuple cp1Path name <- peel cp1
       rel <- relativeTo' cp1Path cp2
       pure case dirOrFileName name of
         Left dirN -> joinSplit $ rel </> In (Current :: Path Rel Dir s') dirN