Commit 82e49daf authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX] text message.

parent 808c69a1
......@@ -113,7 +113,7 @@ graphOld2graphWithFiles :: FilePath -> FilePath -> IO ()
graphOld2graphWithFiles g1 g2 = do
graph <- DBL.readFile g1
let newGraph = case DA.decode graph :: Maybe GraphOld of
Nothing -> panic "no graph"
Nothing -> panic (T.pack "no graph")
Just new -> new
DBL.writeFile g2 (DA.encode $ graphOld2graph newGraph)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment