X-Git-Url: https://glassweightruler.freedombox.rocks/gitweb/xdg-ninja.git/blobdiff_plain/4f758de596c79f81bd3e8466478492102a6c9192..881b8a05e8719fb86cb4aa5cc1a77409995eb758:/lib/PreviewProgram.hs diff --git a/lib/PreviewProgram.hs b/lib/PreviewProgram.hs index cd9ea6b..6ae379e 100644 --- a/lib/PreviewProgram.hs +++ b/lib/PreviewProgram.hs @@ -1,9 +1,9 @@ module PreviewProgram where +import qualified Data.Text as T +import Data.Text.ANSI +import Output import Program -import Data.Text.ANSI -import Output -import qualified Data.Text as T previewFile :: T.Text -> File -> IO () previewFile name file = logFile name file True @@ -18,5 +18,5 @@ previewProgramFile filename = do x <- readProgram filename case x of Just program -> previewProgram program - Nothing -> putStrLn (T.unpack (red (T.pack "Error."))) + Nothing -> putStrLn (T.unpack (red (T.pack "Error."))) return ()