fix urxvt (#178)

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

diff --git a/lib/EditProgram.hs b/lib/EditProgram.hs
index a1a6728664b951936f82dc5a66f35057584cdfde..353344c1fc1e2439f520825d3156c7110e1378c7 100644 (file)
--- 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