rblaze/bond-haskell

Found

do v <- ask
   return $ BondedStream $ BL.append (protoSig JsonProto) (A.encode v)

Perhaps

do BondedStream . BL.append (protoSig JsonProto) . A.encode <$> ask

Found

typeName = mkType $ makeDeclName decl
typeParams
  = map (\ TypeParam{paramName} -> UnkindedVar $ mkVar paramName)
      declParams
fieldModules
  = unique $
      filter (/= moduleName) $
        filter (/= internalModuleAlias) $
          concatMap (getTypeModules . snd) fields
mkField f
  = ([mkVar $ makeFieldName f],
     hsType (setType opts) ctx (fieldType f))
ownFields = map mkField structFields
fields
  | Just base <- structBase =
    ([baseStructField], hsType (setType opts) ctx base) : ownFields
  | otherwise = ownFields

Perhaps

Combine with compiler/src/Language/Bond/Codegen/Haskell/StructDecl.hs:193:5

Found

stream <- either throwError return $
            bondMarshal CompactBinaryProto v
putWord32le $ fromIntegral $ BL.length stream
putLazyByteString stream

Perhaps

Combine with runtime/src/Data/Bond/Internal/SimpleBinaryProto.hs:262:9

Found

\ c -> (hsBootName, Nothing, c)

Perhaps

(hsBootName, Nothing,)

Applying this change:

• may require {-# LANGUAGE TupleSections #-} adding to the top of the file

Found

v <- bondUnmarshalWithSchema schema stream
s <- bondMarshalWithSchema t schema v
return (BondedStream s)

Perhaps

Combine with runtime/src/Data/Bond/Internal/BondedUtils.hs:45:9

Found

import IO

Perhaps

import System.IO
import System.IO.Error
import Control.Exception ( bracket, bracket_ )

Found

(Just . head) <$> bondGetList

Perhaps

Just . head <$> bondGetList

Found

let et = getWireType (Proxy :: Proxy a)
(t, n) <- getListHeader
unless (t == et) $
  fail $
    "invalid element tag " ++
      bondTypeName t ++
        " in list field, " ++ bondTypeName et ++ " expected"

Perhaps

Combine with runtime/src/Data/Bond/Internal/CompactBinaryProto.hs:337:5

Found

\ c -> (sourceName, Just printName, c)

Perhaps

(sourceName, Just printName,)

Applying this change:

• may require {-# LANGUAGE TupleSections #-} adding to the top of the file

Found

v <- bondUnmarshalTagged stream
s <- bondMarshalWithSchema t schema v
return (BondedStream s)

Perhaps

Combine with runtime/src/Data/Bond/Internal/BondedUtils.hs:59:9

Found

let et = getWireType (Proxy :: Proxy a)
(t, n) <- getListHeader
unless (t == et) $
  fail $
    "invalid element tag " ++
      bondTypeName t ++
        " in list field, " ++ bondTypeName et ++ " expected"

Perhaps

Combine with runtime/src/Data/Bond/Internal/FastBinaryProto.hs:211:5

Found

size <- getWord32le
bs <- getLazyByteString (fromIntegral size)
return $ BondedStream bs

Perhaps

Combine with runtime/src/Data/Bond/Internal/SimpleBinaryProto.hs:216:9

Found

data BondedException
  = BondedException String
  deriving (Show, Typeable)

Perhaps

newtype BondedException
  = BondedException String
  deriving (Show, Typeable)

Applying this change:

• decreases laziness

Found

sig = BL.take 4 stream
schema = getSchema (Proxy :: Proxy a)
taggedSigs
  = [protoSig FastBinaryProto, protoSig CompactBinaryProto,
     protoSig CompactBinaryV1Proto]
isTaggedSource = sig `elem` taggedSigs

Perhaps

Combine with runtime/src/Data/Bond/Internal/BondedUtils.hs:49:5

Found

keyTypeDef <- makeElementTypeDef key
valueTypeDef <- makeElementTypeDef value
return
  defaultValue{TD.id = bT_MAP, TD.element = Just valueTypeDef,
               TD.key = Just keyTypeDef}

Perhaps

Combine with runtime/src/Data/Bond/Internal/SchemaOps.hs:282:9

Found

v <- bondUnmarshalWithSchema schema stream
s <- bondMarshalWithSchema t schema v
return (BondedStream s)

Perhaps

Combine with runtime/src/Data/Bond/Internal/BondedUtils.hs:63:9