Make setSim default to simulate.

leepike · Feb 4, 2011 · a739b3a · a739b3a
1 parent 0246037
commit a739b3a
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/Language/Copilot/Help.hs b/Language/Copilot/Help.hs
@@ -120,12 +120,12 @@ helpStr =
   , "    For exmple, pre-code might include 'includes'.  Post-code might include"
   , "    a custom main() function."  
   , "" 
-  , "  setSim :: Bool                                                        (c)"
+  , "  setSim :: Options -> Options                                          (c)"
   , "    default: False"
-  , "    When true, generates a main() function in the generated C file that"
+  , "    When used, generates a main() function in the generated C file that"
   , "    includes a driver to call the scheduler to simulate the function and"
   , "    print the reults to standard out.  Additionally, we attempt to compile"
-  , "    the code when setSim is given True."
+  , "    the code when setSim is used."
   , ""
   , "  setArrs :: [(String,Int)] -> Options -> Options                       (c)"
   , "    default: Nothing" 

diff --git a/Language/Copilot/Interface.hs b/Language/Copilot/Interface.hs
@@ -83,7 +83,7 @@ baseOpts = Options {
 
 test :: Int -> Options -> IO ()
 test n opts = 
-  interface $ setC "-Wall" $ setI $ setN n $ setV OnlyErrors $ setSim True opts 
+  interface $ setC "-Wall" $ setI $ setN n $ setV OnlyErrors $ setSim opts 
 
 interpret :: Streams -> Int -> Options -> IO ()
 interpret streams n opts = 
@@ -198,8 +198,8 @@ setCode :: (Maybe String, Maybe String) -> Options -> Options
 setCode pp opts = opts {optPrePostCode = pp}
 
 -- | Include simulation driver code (in a main() loop)?
-setSim :: Bool -> Options -> Options
-setSim b opts = opts {optSimulate = b}
+setSim :: Options -> Options
+setSim opts = opts {optSimulate = True}
 
 -- | The "main" function that dispatches.
 interface :: Options -> IO ()