acme-left-pad 2.0 → 3.0

raw patch · 2 files changed

+7/−5 lines, 2 files

Files

• Data/Text/LeftPad.hs +6/−4
• acme-left-pad.cabal +1/−1

@@ -1,10 +1,12 @@-module Data.Text.LeftPad where+module Data.Text.LeftPad (leftPad) where -import Data.Text+import qualified Data.Text+import Debug.Trace  leftPad :: String -> Int -> String -> String leftPad s l "" = leftPad' s l ' ' leftPad s l (c:[]) = leftPad' s l c-  where leftPad' s 0 c = s-        leftPad' s n c = if length s > n then [c] ++ leftPad' s (n - 1) c else leftPad' s (n - 1) c++leftPad' s 0 c = s+leftPad' s n c = if length s < n then [c] ++ leftPad' s (n - 1) c else leftPad' s (n - 1) c 

@@ -10,7 +10,7 @@ -- PVP summary:      +-+------- breaking API changes --                   | | +----- non-breaking API additions --                   | | | +--- code changes with no API change-version:             2.0+version:             3.0  -- A short (one-line) description of the package. synopsis:            free your haskell from the tyranny of npm!