Permalink
Browse files

address

  • Loading branch information...
1 parent 6c7607f commit 69e8b7a67d33fa148e474ba3be3ede3586b585d3 @nfjinjing committed Apr 22, 2010
Showing with 5 additions and 4 deletions.
  1. +2 −2 snow-white.cabal
  2. +3 −2 src/Codec/SnowWhite.hs
View
@@ -15,8 +15,8 @@ Description:
License: BSD3
License-file: LICENSE
-Author: Wang, Jinjing
-Maintainer: Wang, Jinjing <nfjinjing@gmail.com>
+Author: Jinjing Wang
+Maintainer: Jinjing Wang <nfjinjing@gmail.com>
Build-Depends: base
Cabal-version: >= 1.2
category: Codec
@@ -12,9 +12,10 @@ c2w '0' = ' '
c2w '1' = '\t'
c2w _ = error "not 0 or 1"
-w2c ' ' = '0'
+w2c ' ' = '0'
w2c '\t' = '1'
-w2c _ = error "not 0 or 1"
+w2c _ = error "not 0 or 1"
+
b2s, pack :: (Binary a) => a -> String
b2s = encode > B.unpack > map (ord > (base 2) > rjust 8 '0' > map c2w) > concat

0 comments on commit 69e8b7a

Please sign in to comment.