primality tests UI

app/Main.hs

@@ -2,18 +2,19 @@ module Main where
 
 import Utils (askChoice)
 import qualified FactorizationUI
+import qualified PrimesUI
 
 main :: IO ()
 main = do
     putStrLn "Haskell Math Toolkit"
     putStrLn "1) Factorization"
     putStrLn "2) Modular square root (not yet implemented)"
-    putStrLn "3) Primality test (not yet implemented)"
+    putStrLn "3) Primality tests"
 
     choice <- askChoice 3
 
     case choice of
         1 -> FactorizationUI.run
         2 -> putStrLn "Modular square root: not implemented yet."
-        3 -> putStrLn "Primality test: not implemented yet."
+        3 -> PrimesUI.run
         _ -> error "Impossible"