maciej-bendkowski/generic-boltzmann-brain
1
1
Fork 0
mirror of https://github.com/maciej-bendkowski/generic-boltzmann-brain.git synced 2024-09-11 12:48:09 +03:00
Code Issues Projects Releases Wiki Activity

Rename Utils to TH

Browse Source
This commit is contained in:
Maciej Bendkowski 2022-03-20 18:53:25 +01:00
parent c0403d41bb
commit 92c605cefd
6 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
generic-boltzmann-brain.cabal
View File

@ -28,9 +28,9 @@ library
exposed-modules:
Data.Boltzmann.Samplable
Data.Boltzmann.Sampler
Data.Boltzmann.Sampler.Utils
Data.Boltzmann.Sampler.TH
Data.Boltzmann.System
Data.Boltzmann.System.Utils
Data.Boltzmann.System.TH
Data.BuffonMachine
other-modules:
Paths_generic_boltzmann_brain

2
profile/BinTree/BinTree.hs
View File

@ -5,7 +5,7 @@ module BinTree (BinTree (..), randomBinTreeListIO) where
import Control.Monad (replicateM)
import Data.Boltzmann.Sampler (BoltzmannSampler (..), rejectionSampler')
import Data.Boltzmann.System (System (..))
import Data.Boltzmann.System.Utils (mkBoltzmannSampler)
import Data.Boltzmann.System.TH (mkBoltzmannSampler)
import Data.BuffonMachine (evalIO)
import System.Random.SplitMix (SMGen)

2
profile/Lambda/Lambda.hs
View File

@ -6,7 +6,7 @@ import Control.Monad (replicateM)
import Data.Boltzmann.Sampler (BoltzmannSampler (..), rejectionSampler')
import Data.Boltzmann.System (System (..))
import Data.Boltzmann.System.Utils (mkBoltzmannSampler)
import Data.Boltzmann.System.TH (mkBoltzmannSampler)
import Data.BuffonMachine (evalIO)
import System.Random.SplitMix (SMGen)

2
profile/Tree/Tree.hs
View File

@ -5,7 +5,7 @@ module Tree (Tree (..), randomTreeListIO) where
import Control.Monad (replicateM)
import Data.Boltzmann.Sampler (BoltzmannSampler (..), rejectionSampler')
import Data.Boltzmann.System (System (..))
import Data.Boltzmann.System.Utils (mkBoltzmannSampler)
import Data.Boltzmann.System.TH (mkBoltzmannSampler)
import Data.BuffonMachine (evalIO)
import System.Random.SplitMix (SMGen)

2
src/Data/Boltzmann/Sampler/Utils.hs → src/Data/Boltzmann/Sampler/TH.hs
View File

@ -1,6 +1,6 @@
{-# LANGUAGE NamedFieldPuns #-}
module Data.Boltzmann.Sampler.Utils where
module Data.Boltzmann.Sampler.TH where
import Data.Coerce (coerce)

4
src/Data/Boltzmann/System/Utils.hs → src/Data/Boltzmann/System/TH.hs
View File

@ -1,7 +1,7 @@
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TemplateHaskell #-}
module Data.Boltzmann.System.Utils (mkBoltzmannSampler) where
module Data.Boltzmann.System.TH (mkBoltzmannSampler) where
import qualified Data.Map.Strict as Map
import qualified Data.Set as Set
@ -10,7 +10,7 @@ import Control.Monad (forM, guard)
import Control.Monad.Trans (MonadTrans (lift))
import Control.Monad.Trans.Reader (ReaderT (runReaderT), asks)
import Data.Boltzmann.Samplable (Distribution, choice)
import Data.Boltzmann.Sampler.Utils (
import Data.Boltzmann.Sampler.TH (
ConstructorName (MkConstructorName),
ListTypeDistributions (unListTypeDistributions),
SamplerCtx (