removing undefined.

yunomu · Jul 13, 2011 · ece2b4e · ece2b4e
1 parent 4ae185a
commit ece2b4e
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/FileCache.hs b/FileCache.hs
@@ -57,5 +57,5 @@ fileCacheInit = do
 remover :: IORef Cache -> IO ()
 remover ref = do
     threadDelay 10000000
-    _ <- atomicModifyIORef ref (\_ -> (M.empty, undefined))
+    _ <- atomicModifyIORef ref (\_ -> (M.empty, ()))
     remover ref
diff --git a/Log.hs b/Log.hs
@@ -120,7 +120,7 @@ clockInit = do
 clock :: TimeRef -> IO ()
 clock timeref@(TimeRef ref) = do
     tmstr <- timeByteString
-    atomicModifyIORef ref (\_ -> (tmstr, undefined))
+    atomicModifyIORef ref (\_ -> (tmstr, ()))
     threadDelay 1000000
     clock timeref
 

diff --git a/mkindex.hs b/mkindex.hs
@@ -57,7 +57,7 @@ ppSize st
   | otherwise      = sizeFormat . fromIntegral . fileSize $ st
   where
     sizeFormat siz = unit siz " KMGT"
-    unit _ []  = undefined
+    unit _ []  = error "unit"
     unit s [u] = format s u
     unit s (u:us)
       | s >= 1024 = unit (s `div` 1024) us