Korektis formaton.

masaniwasdp · Feb 2, 2018 · 837fcbb · 837fcbb
1 parent bd6de9e
commit 837fcbb
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Hakocalc/Command.hs b/src/Hakocalc/Command.hs
@@ -21,8 +21,10 @@ calcProbability
   :: ProbabilityOption' -- ^ Opcio por komando.
   -> IO ()
 
-calcProbability (ProbabilityOption' h q) = printf "%.3f%%" (per :: Double)
+calcProbability (ProbabilityOption' h q) = putStrLn str
   where
+    str = printf "%.3f%%" (per :: Double)
+
     per = (* 100) . fromRational $ fromProbability res
 
     res = killingProbability h q