Permalink
Browse files

Now with IO Support

  • Loading branch information...
1 parent 4c4dcc6 commit d1378bf10be8919112bdee228410717b57e6854b Fernando 'Brujo' Benavides committed Apr 28, 2010
Showing with 6 additions and 8 deletions.
  1. +1 −1 hpage.cabal
  2. +1 −1 src/HPage/Control.hs
  3. +4 −6 src/HPage/Utils/Log.hs
View
2 hpage.cabal
@@ -1,5 +1,5 @@
name: hpage
-version: 0.6.3
+version: 0.7.0
cabal-version: >=1.6
build-type: Custom
license: BSD3
View
2 src/HPage/Control.hs
@@ -901,7 +901,7 @@ emptyPage = Page [] (-1) [] [] [] Nothing
letsToString :: [Expression] -> String
letsToString [] = ""
-letsToString exs = "let " ++ joinWith ";\n " (map (joinWith "\n " . lines . exprText) exs) ++ "\n in "
+letsToString exs = "let\n " ++ joinWith ";\n " (map (joinWith "\n " . lines . exprText) exs) ++ "\n in "
moduleElemDesc :: Hint.ModuleElem -> Hint.InterpreterT IO ModuleElemDesc
moduleElemDesc (Hint.Fun fn) = do
View
10 src/HPage/Utils/Log.hs
@@ -19,24 +19,22 @@ liftTraceIO, liftDebugIO, liftInfoIO, liftWarnIO, liftErrorIO, liftFatalIO :: (M
{- with log...
traceIO = logIO Trace
+debugIO = logIO Debug
-}
traceIO _ = return ()
-{- without log...
debugIO _ = return ()
--}
-debugIO = logIO Debug
infoIO = logIO Info
warnIO = logIO Warning
errorIO = logIO Error
fatalIO = logIO Fatal
{- with log...
liftTraceIO = liftLogIO Trace
+liftDebugIO = liftLogIO Debug
-}
liftTraceIO _ = return ()
-liftDebugIO = liftLogIO Debug
+liftDebugIO _ = return ()
liftInfoIO = liftLogIO Info
liftWarnIO = liftLogIO Warning
--- liftErrorIO = liftLogIO Error
-liftErrorIO _ = return ()
+liftErrorIO = liftLogIO Error
liftFatalIO = liftLogIO Fatal

0 comments on commit d1378bf

Please sign in to comment.