adds package.yaml; fixes char6 decoding

Author: angerman

data-bitcode.cabal

@@ -1,38 +1,46 @@
+-- This file has been generated from package.yaml by hpack version 0.14.1.
+--
+-- see: https://github.com/sol/hpack
+
 name:                data-bitcode
 version:             0.1.0.0
-synopsis:            bitcode reader and writer.
-description:         Please see README.md
+synopsis:            bitcode reader and writer
 homepage:            https://github.com/lichtzwerge/data-bitcode#readme
+bug-reports:         https://github.com/lichtzwerge/data-bitcode/issues
+author:              Moritz Angermann <moritz@lichtzwerge.de>
+maintainer:          Moritz Angermann <moritz@lichtzwerge.de>
+copyright:           lichtzwerge GmbH
 license:             BSD3
 license-file:        LICENSE
-author:              Moritz Angermann
-maintainer:          moritz@lichtzwerge.de
-copyright:           lichtzwerge GmbH
 category:            Code Generation
 build-type:          Simple
--- extra-source-files:
-cabal-version:       >=1.10
-
-library
-  hs-source-dirs:      src
-  exposed-modules:     Data.BitCode
-                     , Data.BitCode.AbbrevOpEncoding
-                     , Data.BitCode.Codes.BlockInfo
-                     , Data.BitCode.IDs.FixedAbbrev
-                     , Data.BitCode.IDs.StandardBlock
-                     , Data.BitCode.Reader
-                     , Data.BitCode.Reader.Monad
-                     , Data.BitCode.Reader.Combinators
-                     , Data.BitCode.Reader.FromBits
-                     , Data.BitCode.Writer
-                     , Data.BitCode.Writer.Monad
-                     , Data.BitCode.Writer.Combinators
-                     , Data.BitCode.Writer.ToBits
-  build-depends:       base >= 4.7 && < 5
-                     , bytestring >= 0.10
-                     , base16-bytestring
-  default-language:    Haskell2010
+cabal-version:       >= 1.10
 
 source-repository head
-  type:     git
+  type: git
   location: https://github.com/lichtzwerge/data-bitcode
+
+library
+  hs-source-dirs:
+      src
+  exposed-modules:
+      Data.BitCode
+      Data.BitCode.Abbreviation
+      Data.BitCode.AbbrevOpEncoding
+      Data.BitCode.Codes.BlockInfo
+      Data.BitCode.IDs.FixedAbbrev
+      Data.BitCode.IDs.StandardBlock
+      Data.BitCode.Reader
+      Data.BitCode.Reader.Combinators
+      Data.BitCode.Reader.FromBits
+      Data.BitCode.Reader.Monad
+      Data.BitCode.Writer
+      Data.BitCode.Writer.Combinators
+      Data.BitCode.Writer.Monad
+      Data.BitCode.Writer.ToBits
+  build-depends:
+      base >= 4.7 && < 5
+    , pretty >= 1.1
+    , bytestring >= 0.10
+    , base16-bytestring
+  default-language: Haskell2010

package.yaml

@@ -0,0 +1,19 @@
+name: data-bitcode
+version: 0.1.0.0
+synopsis: bitcode reader and writer
+license: BSD3
+author: Moritz Angermann <moritz@lichtzwerge.de>
+maintainer: Moritz Angermann <moritz@lichtzwerge.de>
+copyright: lichtzwerge GmbH
+category: Code Generation
+
+github: lichtzwerge/data-bitcode
+
+dependencies:
+  - base >= 4.7 && < 5
+  - pretty >= 1.1
+  - bytestring >= 0.10
+  - base16-bytestring
+
+library:
+  source-dirs: src

src/Data/BitCode/Reader/FromBits.hs

@@ -41,7 +41,7 @@ instance FromBits Char where
           decodeChar6 62 = '.'
           decodeChar6 c | 0  <= c && c < 26 = toEnum $ c + fromEnum 'a'
           decodeChar6 c | 26 <= c && c < 52 = toEnum $ c - 26 + fromEnum 'A'
-          decodeChar6 c | 52 <= c && c < 61 = toEnum $ c - 52 + fromEnum '0'
+          decodeChar6 c | 52 <= c && c < 62 = toEnum $ c - 52 + fromEnum '0'
 
 parseEncField :: [Op] -> BitCodeReader ([Field],[Op])
 parseEncField (Lit v:xs)         = (,xs) . pure <$> pure (W64 v)