acme-left-pad 1.0 → 2.0
raw patch · 2 files changed
+12/−2 lines, 2 files
Files
- Data/Text/LeftPad.hs +10/−0
- acme-left-pad.cabal +2/−2
+ Data/Text/LeftPad.hs view
@@ -0,0 +1,10 @@+module Data.Text.LeftPad where++import Data.Text++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+
acme-left-pad.cabal view
@@ -10,7 +10,7 @@ -- PVP summary: +-+------- breaking API changes -- | | +----- non-breaking API additions -- | | | +--- code changes with no API change-version: 1.0+version: 2.0 -- A short (one-line) description of the package. synopsis: free your haskell from the tyranny of npm!@@ -48,7 +48,7 @@ library -- Modules exported by the library.- -- exposed-modules: + exposed-modules: Data.Text.LeftPad -- Modules included in this library but not exported. -- other-modules: