implemented getNumRungs

src/Abacus/Internal.hs

@@ -36,7 +36,7 @@ module Abacus.Internal (Abacus (..)) where
 data Abacus = Abacus
   { abacusNumBeads :: Int
   -- ^ The number of beads per rung of the abacus
-  , abacusRows :: [Int]
+  , abacusRungs :: [Int]
   -- ^ The number of beads slid across each rung
   } deriving (Eq, Show)