restructure project

src/Primes.hs

@@ -0,0 +1,5 @@
+module Primes ( fermatPrimeTest, millerRabin, solovayStrassen) where
+
+import Primes.FermatPrimeTest
+import Primes.MillerRabin
+import Primes.SolovayStrassen

src/Primes/SolovayStrassen.hs

@@ -1,11 +1,11 @@
-module Primes.SoloveyStrassen (soloveyStrassen) where
+module Primes.SolovayStrassen (solovayStrassen) where
 
 import ModularArithmeticUtils (modExp, jacobi)
 import System.Random (randomRIO)
 
 
-soloveyStrassen :: Integer -> Integer -> IO Bool
-soloveyStrassen n k
+solovayStrassen :: Integer -> Integer -> IO Bool
+solovayStrassen n k
   | n < 2     = return False
   | n == 2    = return True
   | even n    = return False