fix: createLeft

Reported by Altai-Man in #4
dzhus · Mar 26, 2017 · 37ef591 · 37ef591
1 parent 62f8b59
commit 37ef591
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 2 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -5,3 +5,8 @@
 #### Added
 
 - `ShortByteString` support
+
+#### Fixed
+
+- a bug in `createLeft` which failed to actually pad/truncate strings
+  (reported by Altai-man https://github.com/dzhus/sext/issues/4)
diff --git a/package.yaml b/package.yaml
@@ -1,5 +1,5 @@
 name:        sext
-version:     "0.1.2"
+version:     "0.1.2.1"
 synopsis:    Lists, Texts, ByteStrings, and Vectors with type-encoded length
 
 description: Sext (/s/tatic t/ext/) provides type-level safety for

diff --git a/src/Data/Sext.hs b/src/Data/Sext.hs
@@ -106,7 +106,7 @@ createLeft :: forall a i.
               Elem a -> a -> Sext i a
 createLeft e s =
   C.unsafeCreate $
-  C.take (C.length s) $
+  C.take t $
   C.append s $
   C.replicate (t - C.length s) e
   where