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

[FIX] text message.

parent 808c69a1
...@@ -113,7 +113,7 @@ graphOld2graphWithFiles :: FilePath -> FilePath -> IO () ...@@ -113,7 +113,7 @@ graphOld2graphWithFiles :: FilePath -> FilePath -> IO ()
graphOld2graphWithFiles g1 g2 = do graphOld2graphWithFiles g1 g2 = do
graph <- DBL.readFile g1 graph <- DBL.readFile g1
let newGraph = case DA.decode graph :: Maybe GraphOld of let newGraph = case DA.decode graph :: Maybe GraphOld of
Nothing -> panic "no graph" Nothing -> panic (T.pack "no graph")
Just new -> new Just new -> new
DBL.writeFile g2 (DA.encode $ graphOld2graph newGraph) 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