thunderstrike/purescript-proquint
thunderstrike/purescript-proquint
2
0
Fork 0
generated from tpl/purs
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix: trim start

Browse Source
This commit is contained in:
orion kindel 2023-12-16 13:27:07 -06:00
parent c479776340
commit 01f844b2d2
Signed by: orion
GPG Key ID: 6D4165AE4C928719
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Data.Proquint.purs
View File

@ -243,12 +243,15 @@ pad n pq@(Proquint segs) =
else else
pq pq
trim :: Proquint -> Proquint
trim (Proquint segs) = Proquint $ Array.dropWhile (_ == segmentZero) segs
toString :: Proquint -> String toString :: Proquint -> String
toString (Proquint segments) = intercalate "-" $ map segmentToString segments toString (Proquint segments) = intercalate "-" $ map segmentToString segments
fromString :: String -> Either String Proquint fromString :: String -> Either String Proquint
fromString "" = Right $ Proquint [] fromString "" = Right $ Proquint []
fromString s = map Proquint $ traverse segmentFromString $ String.split (wrap "-") s fromString s = map (trim <<< Proquint) $ traverse segmentFromString $ String.split (wrap "-") s
fromInt :: Int -> Proquint fromInt :: Int -> Proquint
fromInt n = fromBits $ unsafePerformEffect do fromInt n = fromBits $ unsafePerformEffect do
@ -292,4 +295,4 @@ fromBits buf =
| x >= len = segs | x >= len = segs
| otherwise = go (segs <> [ segmentFromBits $ octets x ]) (x + 2) | otherwise = go (segs <> [ segmentFromBits $ octets x ]) (x + 2)
in in
Proquint $ go [] 0 trim $ Proquint $ go [] 0