Permalink
Browse files

re-indent wibble in Plugin.hs, add a newline to Annotation.hs and cle…

…an up NonTerminating test a little
  • Loading branch information...
1 parent 97a9624 commit f10a3049fb89949045e145be0881ce240684a666 austin s committed Nov 21, 2010
Showing with 4 additions and 10 deletions.
  1. +1 −1 Strict/Annotation.hs
  2. +1 −1 Strict/Plugin.hs
  3. +2 −8 tests/NonTerminating.hs
View
@@ -5,4 +5,4 @@ import Data.Data
-- | Programs which want to 'strictify' their functions should annotate them with the following
-- datatype
-- TODO: move this into a separate package perhaps?
-data Strictify = Strictify deriving (Typeable, Data)
+data Strictify = Strictify deriving (Typeable, Data)
View
@@ -6,7 +6,7 @@ import GHCPlugins
plugin :: Plugin
plugin = defaultPlugin {
- installCoreToDos = install
+ installCoreToDos = install
}
install :: [CommandLineOption] -> [CoreToDo] -> CoreM [CoreToDo]
View
@@ -2,17 +2,11 @@
module Main ( main ) where
import Strict.Annotation
-import Control.Exception ( evaluate )
-
-evaluate_and_possibly_timeout what = do
- val <- evaluate what
- putStrLn $ "Test failed due to the thing compiled terminating with value: " ++ show val
-
{-# ANN foreverFrom Strictify #-}
foreverFrom :: Int -> [Int]
foreverFrom n = n : foreverFrom (n + 1)
main :: IO ()
main = do
- let xs = foreverFrom 0
- evaluate_and_possibly_timeout (take 10 xs)
+ let xs = foreverFrom 0
+ print (take 10 xs)

0 comments on commit f10a304

Please sign in to comment.