X-Git-Url: https://glassweightruler.freedombox.rocks/gitweb/xdg-ninja.git/blobdiff_plain/0ed6693f66fb949929b6d59b1b79dc87be538d61..ea169ef8ff405ebbfbfcdd105e3a3b755e81396f:/lib/EditProgram.hs

diff --git a/lib/EditProgram.hs b/lib/EditProgram.hs
index a1a6728..353344c 100644
--- a/lib/EditProgram.hs
+++ b/lib/EditProgram.hs
@@ -61,11 +61,6 @@ editFile f = do
     help <- getHelp (help f)
     return File {path = path f, supportLevel = supportLevel, help = help}
 
-readProgram :: String -> IO ( Maybe Program )
-readProgram filename = do
-    json_data <- B.readFile filename
-    return (decode json_data)
-
 editProgram :: String -> IO ()
 editProgram filename = do
   program <- readProgram filename