Commits

Luke Plant committed 81d6e69

Use a strict 'sum'.

Comments (0)

Files changed (1)

-{- 
+{-
 Attempt to convert numbers like 01523 568304 into
 words/numbers, using the map used on most mobile
 phone keypads.
 import Control.Monad (guard)
 import Data.List (partition, nub, sort, foldl')
 import Maybe (fromJust)
+import Prelude hiding (sum)
 import System.Environment (getArgs)
 
 import qualified Data.ByteString.Char8 as B
 -- Main
 --
 
+sum = foldl' (+) 0
+
 getWords :: String -> IO [B.ByteString]
 getWords dictFile = B.readFile dictFile >>= (return . B.lines)