diff options
Diffstat (limited to 'src/Grasp/Types')
-rw-r--r-- | src/Grasp/Types/Instruction.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Grasp/Types/Instruction.hs b/src/Grasp/Types/Instruction.hs index 0ff4002..e618222 100644 --- a/src/Grasp/Types/Instruction.hs +++ b/src/Grasp/Types/Instruction.hs @@ -4,7 +4,8 @@ module Grasp.Types.Instruction ( mk, toString, - toFloat + toFloat, + toInt ) where @@ -30,3 +31,6 @@ toString (Instruction i) = i toFloat :: Instruction -> Maybe Float toFloat (Instruction i) = readMaybe i +toInt :: Instruction -> Maybe Int +toInt (Instruction i) = readMaybe i + |