From 7f110aebf4361bcf1a2af28ae8b96ea3f4b71600 Mon Sep 17 00:00:00 2001
From: Maciej Bendkowski <maciej.bendkowski@gmail.com>
Date: Sun, 27 Mar 2022 11:45:59 +0200
Subject: [PATCH] Fix typo

---
 internal/Data/Boltzmann/System.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/internal/Data/Boltzmann/System.hs b/internal/Data/Boltzmann/System.hs
index 3c6e486..61b5014 100644
--- a/internal/Data/Boltzmann/System.hs
+++ b/internal/Data/Boltzmann/System.hs
@@ -282,8 +282,8 @@ data Distributions a = Distributions
   }
   deriving stock (Show)
 
-mkDidtributions :: Params -> Spec (Distributions a)
-mkDidtributions params = do
+mkDistributions :: Params -> Spec (Distributions a)
+mkDistributions params = do
   let mkDistribution = MkDistribution . fromList . fromJust
 
   regDdgs <- forM (Map.toList $ typeVariable params) $ \(name, v) -> do
@@ -324,7 +324,7 @@ paganiniSpec sys (Types regTypes listTypes) = do
   let (Let t) = varDefs Map.! targetType sys
 
   tune t -- tune for target variable.
-  mkDidtributions params
+  mkDistributions params
 
 paganiniSpecIO ::
   System ->