Commit 9b7c1b60 authored by Valentin Reis's avatar Valentin Reis
Browse files

hlint fix.

parent 91281bec
Pipeline #9940 failed with stages
in 9 minutes and 27 seconds
cabal-version: 2.0
-- * * * * * * * * * * * * WARNING * * * * * * * * * * * *
-- This file has been AUTO-GENERATED by dhall-to-cabal.
--
-- Do not edit it by hand, because your changes will be over-written!
--
-- Instead, edit the source Dhall file (which may have the
-- '.dhall' extension) and re-run dhall-to-cabal, passing
-- the source file's name as its argument.
-- * * * * * * * * * * * * WARNING * * * * * * * * * * * *
name: hbandit
version: 1.0.0
license: BSD3
maintainer: mail@server.ext
author: Name Lastname
synopsis: hbandit
description:
hbandit
category: algorithms
build-type: Simple
source-repository head
library hbanditlib
exposed-modules:
HBandit.BwCR
HBandit.Class
HBandit.EpsGreedy
HBandit.Exp3
HBandit.Exp4R
HBandit.Types
HBandit.Util
hs-source-dirs: src
default-language: Haskell2010
default-extensions: LambdaCase QuasiQuotes DefaultSignatures
ExistentialQuantification RecordWildCards TypeSynonymInstances
StandaloneDeriving FlexibleInstances TupleSections
MultiParamTypeClasses NoImplicitPrelude OverloadedStrings
ViewPatterns DeriveFunctor TypeFamilies DeriveAnyClass
DeriveGeneric DeriveDataTypeable DeriveFoldable DerivingStrategies
TypeApplications MultiWayIf NoTemplateHaskell BlockArguments GADTs
FlexibleContexts TypeOperators DataKinds PolyKinds
AllowAmbiguousTypes FunctionalDependencies UndecidableInstances
ghc-options: -Wall -O0 -Wcompat -Wincomplete-uni-patterns
-Widentities -Wredundant-constraints -Wcpp-undef -fwarn-tabs
-fwarn-unused-imports -fwarn-missing-signatures
-fwarn-name-shadowing -fprint-potential-instances
-fwarn-unused-do-bind -fwarn-wrong-do-bind
-fwarn-incomplete-patterns -Wincomplete-record-updates
-Wmonomorphism-restriction -Wimplicit-prelude
-Wmissing-local-signatures -Wmissing-exported-signatures
-Wmissing-export-lists -Wmissing-home-modules -Widentities
-Wredundant-constraints -Wpartial-fields
build-depends:
base -any,
protolude -any,
random -any,
refined -any,
intervals -any,
MonadRandom -any,
lens -any,
generic-lens -any
library ffi
exposed-modules:
FFI.TypeUncurry
FFI.TypeUncurry.DataKinds
FFI.TypeUncurry.Msgpack
hs-source-dirs: src
default-language: Haskell2010
default-extensions: LambdaCase QuasiQuotes DefaultSignatures
ExistentialQuantification RecordWildCards TypeSynonymInstances
StandaloneDeriving FlexibleInstances TupleSections
MultiParamTypeClasses NoImplicitPrelude OverloadedStrings
ViewPatterns DeriveFunctor TypeFamilies DeriveAnyClass
DeriveGeneric DeriveDataTypeable DeriveFoldable DerivingStrategies
TypeApplications MultiWayIf NoTemplateHaskell BlockArguments GADTs
FlexibleContexts TypeOperators DataKinds PolyKinds
AllowAmbiguousTypes FunctionalDependencies UndecidableInstances
ghc-options: -Wall -O0 -Wcompat -Wincomplete-uni-patterns
-Widentities -Wredundant-constraints -Wcpp-undef -fwarn-tabs
-fwarn-unused-imports -fwarn-missing-signatures
-fwarn-name-shadowing -fprint-potential-instances
-fwarn-unused-do-bind -fwarn-wrong-do-bind
-fwarn-incomplete-patterns -Wincomplete-record-updates
-Wmonomorphism-restriction -Wimplicit-prelude
-Wmissing-local-signatures -Wmissing-exported-signatures
-Wmissing-export-lists -Wmissing-home-modules -Widentities
-Wredundant-constraints -Wpartial-fields
build-depends:
protolude -any,
base -any,
bytestring -any,
enclosed-exceptions -any,
data-msgpack -any,
storable-endian -any
executable validation
main-is: ctx.hs
hs-source-dirs: validation
default-language: Haskell2010
default-extensions: LambdaCase QuasiQuotes DefaultSignatures
ExistentialQuantification RecordWildCards TypeSynonymInstances
StandaloneDeriving FlexibleInstances TupleSections
MultiParamTypeClasses NoImplicitPrelude OverloadedStrings
ViewPatterns DeriveFunctor TypeFamilies DeriveAnyClass
DeriveGeneric DeriveDataTypeable DeriveFoldable DerivingStrategies
TypeApplications MultiWayIf NoTemplateHaskell BlockArguments GADTs
FlexibleContexts TypeOperators DataKinds PolyKinds
AllowAmbiguousTypes FunctionalDependencies UndecidableInstances
ghc-options: -Wall -O0 -Wcompat -Wincomplete-uni-patterns
-Widentities -Wredundant-constraints -Wcpp-undef -fwarn-tabs
-fwarn-unused-imports -fwarn-missing-signatures
-fwarn-name-shadowing -fprint-potential-instances
-fwarn-unused-do-bind -fwarn-wrong-do-bind
-fwarn-incomplete-patterns -Wincomplete-record-updates
-Wmonomorphism-restriction -Wimplicit-prelude
-Wmissing-local-signatures -Wmissing-exported-signatures
-Wmissing-export-lists -Wmissing-home-modules -Widentities
-Wredundant-constraints -Wpartial-fields
build-depends:
base -any,
protolude -any,
random -any,
refined -any,
intervals -any,
MonadRandom -any,
lens -any,
generic-lens -any,
hbanditlib -any,
inline-r -any,
containers -any,
primitive -any
executable hbandit
main-is: Shared.hs
hs-source-dirs: bin src
other-modules:
HBandit.BwCR
HBandit.Class
HBandit.EpsGreedy
HBandit.Exp3
HBandit.Exp4R
HBandit.Types
HBandit.Util
FFI.TypeUncurry
FFI.TypeUncurry.DataKinds
FFI.TypeUncurry.Msgpack
default-language: Haskell2010
default-extensions: LambdaCase QuasiQuotes DefaultSignatures
ExistentialQuantification RecordWildCards TypeSynonymInstances
StandaloneDeriving FlexibleInstances TupleSections
MultiParamTypeClasses NoImplicitPrelude OverloadedStrings
ViewPatterns DeriveFunctor TypeFamilies DeriveAnyClass
DeriveGeneric DeriveDataTypeable DeriveFoldable DerivingStrategies
TypeApplications MultiWayIf NoTemplateHaskell BlockArguments GADTs
FlexibleContexts TypeOperators DataKinds PolyKinds
AllowAmbiguousTypes FunctionalDependencies UndecidableInstances
ghc-options: -Wall -O0 -Wcompat -Wincomplete-uni-patterns
-Widentities -Wredundant-constraints -Wcpp-undef -fwarn-tabs
-fwarn-unused-imports -fwarn-missing-signatures
-fwarn-name-shadowing -fprint-potential-instances
-fwarn-unused-do-bind -fwarn-wrong-do-bind
-fwarn-incomplete-patterns -Wincomplete-record-updates
-Wmonomorphism-restriction -Wimplicit-prelude
-Wmissing-local-signatures -Wmissing-exported-signatures
-Wmissing-export-lists -Wmissing-home-modules -Widentities
-Wredundant-constraints -Wpartial-fields -fPIC -shared -no-hs-main
-dynamic -lHSrts-ghc8.6.5
-L/nix/store/3xl80cnpsga01hpnjnrxw0j3kr3cbgfd-ghc-8.6.5/lib/ghc-8.6.5/rts/
build-depends:
base -any,
protolude -any,
random -any,
refined -any,
intervals -any,
MonadRandom -any,
lens -any,
generic-lens -any,
data-msgpack -any,
bytestring -any,
enclosed-exceptions -any,
data-msgpack -any,
storable-endian -any
......@@ -120,14 +120,16 @@ instance
(combineAdvice weightedAdvice)
(a, g') = sampleWL armDistribution g
p_a =
fromMaybe
maybe
(panic "internal Exp4R algorithm failure: arm pull issue.")
(fst <$> find (\x -> snd x == a) armDistribution)
fst
(find (\x -> snd x == a) armDistribution)
probabilityOf_a :: NonEmpty (ZeroOne Double)
probabilityOf_a = snd <$> weightedAdvice <&> \e ->
fromMaybe
maybe
(panic "internal Exp4R algorithm failure: weight computation")
(fst <$> find (\x -> snd x == a) e)
fst
(find (\x -> snd x == a) e)
field @"lastAction" ?= LastAction a p_a probabilityOf_a
return (a, g')
......@@ -196,7 +198,9 @@ lambdaInitial :: R.Refined R.NonNegative Double
lambdaInitial = R.unsafeRefine 0
-- | Oblivious Categorical Expert Representation
data ObliviousRep a = ObliviousRep (NonEmpty (ZeroOne Double, a)) deriving (Generic)
newtype ObliviousRep a
= ObliviousRep (NonEmpty (ZeroOne Double, a))
deriving (Generic)
instance ExpertRepresentation (ObliviousRep a) () a where
represent (ObliviousRep l) () = l
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment