diff --git a/Data/Text/LeftPad.hs b/Data/Text/LeftPad.hs
new file mode 100644
--- /dev/null
+++ b/Data/Text/LeftPad.hs
@@ -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
+
diff --git a/acme-left-pad.cabal b/acme-left-pad.cabal
--- a/acme-left-pad.cabal
+++ b/acme-left-pad.cabal
@@ -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: