diff --git a/Data/Text/LeftPad.hs b/Data/Text/LeftPad.hs
--- a/Data/Text/LeftPad.hs
+++ b/Data/Text/LeftPad.hs
@@ -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
 
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:             2.0
+version:             3.0
 
 -- A short (one-line) description of the package.
 synopsis:            free your haskell from the tyranny of npm!