Move wordToInt to Lib file

day2/Main.hs

@@ -6,15 +6,13 @@ import Control.Arrow ((&&&))
 import Data.Char (isSpace)
 import Data.Text (split, pack, unpack)
 import Paths_aoc2017
+import Lib (wordToInt)
 import System.Environment (getArgs)
 import System.Exit (exitSuccess)
 
 file :: IO FilePath
 file = getDataFileName "data/2-1"
 
-wordToInt :: String -> Int
-wordToInt = read
-
 getData :: IO [[Int]]
 getData = map (map (wordToInt . unpack) . split isSpace . pack) . lines <$> (readFile =<< file)
 

src/Lib.hs

@@ -1,11 +1,11 @@
 module Lib
-  ( someFunc
-  , rotate
+  ( rotate
+  , wordToInt
   ) where
 
-someFunc :: IO ()
-someFunc = putStrLn "someFunc"
-
 rotate :: Int -> [a] -> [a]
 rotate _ [] = []
 rotate n xs = drop n xs ++ take n xs
+
+wordToInt :: String -> Int
+wordToInt = read