Merge pull request #86 from haskell-works/drop-prime-suffix

Drop prim suffix

Author: newhoggy

app/App/Commands/CreateBpIndex.hs

@@ -27,7 +27,7 @@ runCreateBpIndex opt = do
 
   lbs <- LBS.readFile input
   let blankedXml = lbsToBlankedXml lbs
-  let ib = toBalancedParens64' blankedXml
+  let ib = toBalancedParens64 blankedXml
   LBS.writeFile output (LBS.fromChunks ib)
 
   return ()

app/App/Commands/CreateIbIndex.hs

@@ -22,16 +22,14 @@ import qualified Data.ByteString.Lazy as LBS
 
 runCreateIbIndex :: Z.CreateIbIndexOptions -> IO ()
 runCreateIbIndex opt = do
-  let input     = opt ^. the @"input"
+  let input   = opt ^. the @"input"
   let output  = opt ^. the @"output"
 
   lbs <- LBS.readFile input
-  let blankedXml = lbsToBlankedXml lbs
-  let ib = toInterestBits64' blankedXml
+  let blankedXml  = lbsToBlankedXml lbs
+  let ib          = toInterestBits64 blankedXml
   LBS.writeFile output (LBS.fromChunks ib)
 
-  return ()
-
 optsCreateIbIndex :: Parser Z.CreateIbIndexOptions
 optsCreateIbIndex = Z.CreateIbIndexOptions
   <$> strOption

src/HaskellWorks/Data/Xml/Internal/ToIbBp64.hs

@@ -4,8 +4,8 @@
 {-# LANGUAGE MultiParamTypeClasses #-}
 
 module HaskellWorks.Data.Xml.Internal.ToIbBp64
-  ( toBalancedParens64'
-  , toInterestBits64'
+  ( toBalancedParens64
+  , toInterestBits64
   , toIbBp64
   ) where
 
@@ -15,11 +15,11 @@ import HaskellWorks.Data.Xml.Internal.List
 import HaskellWorks.Data.Xml.Succinct.Cursor.BlankedXml   (BlankedXml (..))
 import HaskellWorks.Data.Xml.Succinct.Cursor.InterestBits (blankedXmlToInterestBits)
 
-toBalancedParens64' :: BlankedXml -> [ByteString]
-toBalancedParens64' (BlankedXml bj) = compressWordAsBit (blankedXmlToBalancedParens bj)
+toBalancedParens64 :: BlankedXml -> [ByteString]
+toBalancedParens64 (BlankedXml bj) = compressWordAsBit (blankedXmlToBalancedParens bj)
 
-toInterestBits64' :: BlankedXml -> [ByteString]
-toInterestBits64' (BlankedXml bj) = blankedXmlToInterestBits bj
+toInterestBits64 :: BlankedXml -> [ByteString]
+toInterestBits64 (BlankedXml bj) = blankedXmlToInterestBits bj
 
 toIbBp64 :: BlankedXml -> [(ByteString, ByteString)]
-toIbBp64 bj = zip (toInterestBits64' bj) (toBalancedParens64' bj)
+toIbBp64 bj = zip (toInterestBits64 bj) (toBalancedParens64 bj)