Add stack.yaml

[xdg-ninja.git] / lib / Program.hs

diff --git a/lib/Program.hs b/lib/Program.hs
index 1f1ad958cf4fc5b09693368f80e2455c035bc617..9674147167e0a908edef776afbd24e421b835e05 100644 (file)
--- a/lib/Program.hs
+++ b/lib/Program.hs
@@ -55,3 +55,8 @@ makeFilename s = T.pack ( "./programs/" ++ T.unpack s ++ ".json" )
 save :: T.Text -> Program -> IO ()
 save filename program = do
   B.writeFile (T.unpack filename) (encodePretty program)
+
+readProgram :: String -> IO ( Maybe Program )
+readProgram filename = do
+    json_data <- B.readFile filename
+    return (decode json_data)