Strip padding from base64
This commit is contained in:
parent
5e89527a0d
commit
bc7227c5bd
|
@ -28,7 +28,7 @@ import List.Extra exposing (elemIndex, getAt)
|
|||
import Maybe exposing (andThen)
|
||||
import Maybe.Extra exposing (isJust)
|
||||
import Result exposing (toMaybe)
|
||||
import String exposing (fromInt, isEmpty, toLower)
|
||||
import String exposing (fromInt, isEmpty, replace, toLower)
|
||||
import String.Extra exposing (isBlank)
|
||||
import Svg exposing (path, Svg, svg)
|
||||
import Svg.Attributes exposing (d, fill, height, stroke, viewBox, width)
|
||||
|
@ -394,6 +394,7 @@ save model =
|
|||
|> CE.encode
|
||||
|> B64E.bytes
|
||||
|> B64E.encode
|
||||
|> replace "=" ""
|
||||
|> (++) "#"
|
||||
|> pushUrl model.browserKey
|
||||
|
||||
|
|
Loading…
Reference in a new issue